Напишите программу, которая в последовательности - вопрос №9017987 от Zhenya2099 14.01.2022 19:15

Question

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

Zhenya2099 · Answer

Uses crt;var ch,i,n,count:integer;beginn:=0;count:=0;
write(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);while ((ch<>0) and ( n <1001)) dobeginwrite(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);inc(n);end;writeln(count);readln;end.