/ Материалы / Язык программирования: Паскаль / Напишите программу, которая в последовательности...

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


Задание:

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 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.

Есть вопросы? Задайте на форуме




Похожие материалы:
Нашли ошибку на сайте? Напишите нам
Поделитесь в социальных сетях

Комментарии 0

avatar
Мы Вконтакте

Наверх