Сделать программу без массива, ! вводится последовательность целых чисел; 0 - конец последовательности. определить количество чисел, оканчивавшихся на цифру 7

nikita125328 nikita125328    3   30.06.2019 02:30    0

Ответы
atamanova91 atamanova91  23.07.2020 19:59
вроде так
var i,x:integer;
begin
x:=0; i:=1;
while i <> 0 do
begin
readln(i);
if i mod 10 = 7 then x:=x+1;
end;
write(x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика