Регистрация
andreisolo18
13.08.2021 17:41
Информатика
Есть ответ 👍

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

Входные данные –32 18 17 0

Выходные данные 1

104
274
Посмотреть ответы 2

Ответы на вопрос:

varzhyv
varzhyv
4,6(52 оценок)

Program n1;

var sum,a,k: integer;

begin

sum:=0;

k:=0;

readln(a);

while a<>0 do

begin

sum:=sum+a;

if (a mod 2=0) and (a mod 5=0) then k:=k+1;

readln(a);

end;

writeln(sum);

writeln(k);

end.

Объяснение:

mrgebil
mrgebil
4,4(49 оценок)

1. i=k*i

i=30*40*50*8=480000 бит=60000байт=59кб

2. i=5 бит

i =6бит

i=250 бит

i=240 бит

первый объем больше на 10 бит, чем 2 объем

Популярно: Информатика