Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 8 и оканчивающихся на 2. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: количество чисел, кратных 8 и оканчивающихся на 2

Answer 1

Ответ:

program find;

var

a: integer;

sum: integer;

begin

 sum:=0;

 a:=2;

 while a<>0 do

 begin

 readln(a);

 if (a <> 0) and (a mod 8 = 0) and (a mod 10 = 2) then

   sum:= sum + 1;

 end;

 writeln(sum);

 end.

Объяснение: