Предмет: Информатика,
автор: Lansmius4321
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4. PASKAL
Ответы
Автор ответа:
2
program natural;
uses CRT;
var n, number, result, i: integer;
begin
clrscr;
writeln('Enter n');
readln(n);
result := 0;
for i := 1 to n do
begin
readln(number);
if number mod 4 = 0 then result := result + 1;
end;
writeln('Result is ', result);
readln
end.
Lansmius4321:
а это точно паскаль?
Похожие вопросы
Предмет: Алгебра,
автор: aff3ct
Предмет: География,
автор: sofiamarincuk47
Предмет: География,
автор: SlazyIos
Предмет: Математика,
автор: Аноним