Написать программу ( в pascal abc): вводится 3 - вопрос №33220873 от Olgotata 24.07.2022 14:36

Question

Информатика: Написать программу ( в pascal abc): вводится 3 целых числа. сколько среди них будет чётных чисел, оканчивающихся на 8

Olgotata · Answer

Var a:array [0..5] of Integer; n,h,i:Integer;
begin
h:=0;
for i:=0 to 5 do
Readln(a[i]);
for i:=0 to 5 do
if (a[i] mod 2=0) and (a[i] mod 10=8) then
Inc(h);
Writeln(h);
readln;
end.
Написать программу ( в pascal abc): вводится 3 целых числа. сколько среди них будет чётных чисел, ок

Написать программу ( в pascal abc): вводится 3 целых числа. сколько среди них будет чётных чисел, ок