Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.
Язык pascal ABC
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.
Гость
Ответ(ы) на вопрос:
Гость Program z;
var a: array[1..5] of integer;
i,sum:integer;
begin
for i:=1 to 5 do
begin
readln(a[i]);
end;
for i:=1 to 5 do
begin
if(a[i] mod 4=0) and (a[i] div 10=6) then
sum:=sum+a[i];
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы