Напишите программу, которая в последовательности...
Категория: Язык программирования: Паскаль
Задание:
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающее на 3
Количество введенных чисел не превышает 1000. Все числа не превышают 30000.
Программа должна вывести одно число: количество чисел, оканчивающихся на 3.
Пример работы программы:
Входные данные: 3, 13, 23, 24.
Выходные данные: 2.
Решение:
Код программы на паскале:
Program nomer_1;
Var a, i, n, k: integer;
Begin
Write('Vvedite n '); readln(n);
k:=0;
For i:=1 to n do begin
readln (a);
if (a mod 10 =3) then k:=k+1;
end;
Writeln(k);
End.