Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8.Количество чисел не превышает 1000. Введённые числа по модулю
не превышают 30 000.Программа должна вывести одно число: количество чисел, оканчивающихся на 8.
Ответы на вопрос
Ответил Sky09
0
uses crt;
var k,q,i:integer;
begin
readln(q);
k:=0;
repeat
read(i);
if (i<30000) and (i mod 10=8) then inc(k);
q:=q-1;
until q=0;
writeln;
writeln(k);
end.
var k,q,i:integer;
begin
readln(q);
k:=0;
repeat
read(i);
if (i<30000) and (i mod 10=8) then inc(k);
q:=q-1;
until q=0;
writeln;
writeln(k);
end.
Новые вопросы
Математика,
2 года назад
Математика,
2 года назад
Литература,
9 лет назад
Геометрия,
9 лет назад
Математика,
9 лет назад