Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо
Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы