profile
Опубликовано 5 лет назад по предмету Информатика от Anastacia1998

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8.Количество чисел не превышает 1000. Введённые числа по модулю 
не превышают 30 000.
Программа должна вывести одно число: количество чисел, оканчивающихся на 8.

  1. Ответ
    Ответ дан Sky09
    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.
Самые новые вопросы