Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в...

Question

Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо

Answer 1

Program Zadacha;
Var a: Array [1..3] of Integer;
sum, i: Integer;
Begin
WriteLn('Введите 3 числа через пробел');
For i := 1 To 3 Do
Read(a[i]);
For i := 1 To 3 Do
If (a[i] Mod 2 = 0) And (a[i] Div 10 = 1) Then
sum := sum + a[i];
WriteLn(sum);
ReadLn;
End.

Comments

предёться думать

---

Да, но на Паскале так легко не напишешь GUI приложение...)

---

Вика, скажы что вы уже учили и как вам сказали сделать, сделаю.

---

ну мы учили наподобии этой6

---

они учили структуру программы, условный оператор и возможно некоторые команды, у меня вообще в 6 классе программирования не было)))

---

вообще вставь программу из коментов

---

задача такая

---

даны 3 числа найти кол-во 2-х из них

---

var a,b,c,k:integer;
begin
write('ââåäèòå 3 ÷èñëà');
readln(a,b,c);
k:=0;
if (a>=10) fnd (a<=99) then k:=k+1;<br> if (b>=10) fnd (b<=99) then k:=k+1;<br> if (c>=10) fnd (c<=99) then k:=k+1;<br> writeln('k=',k)
readln;
end.

---

там где fnd там будет and