Главная » Напишите программу, которая в последовательности...
11:09

Напишите программу, которая в последовательности...


Задание:

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающее на 3

 Количество введенных чисел не превышает 1000. Все числа не превышают 30000.

 Программа должна вывести одно число: количество чисел, оканчивающихся на 3.

  Пример работы программы:

  Входные данные: 3, 13, 23, 24.

  Выходные данные: 2.

Решение:

Код программы на паскале:

  1. Program nomer_1;
  2. Var a, i, n, k: integer;
  3. Begin
  4. Write('Vvedite n '); readln(n);
  5. k:=0;
  6. For i:=1 to n do
  7.   begin
  8.   readln (a);
  9.   if (a mod 10 =3) then k:=k+1;
  10.   end;
  11. Writeln(k);
  12. End.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 118 | Добавил: Ученик | Рейтинг: 5.0/1