Напишите программу, которая в последовательности - вопрос №11419442 от Luuunar 29.05.2023 23:44

Question

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

Luuunar · Answer

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.Объяснение:...