Регистрация
Qween123452003
13.09.2021 17:39
Информатика
Есть ответ 👍

Вводится n чисел. определить сколько из них нулей.

224
349
Посмотреть ответы 2

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

Дерюгин
Дерюгин
4,4(93 оценок)
Var   x: double;   i, k, n: integer; begin   k : = 0;   writeln('задайте количество вводимых чисел: '); readln(n);   writeln('введите ', n, ' чисел');   for i : = 1 to n do   begin       read(x);       if x = 0 then inc(k)   end;   writeln('введено нулей: ', k); end. тестовое решение: задайте количество вводимых чисел: 10 введите 10 чисел -5 3.6 0 11.52 0 0 -1 0 45.54 1.2e-4 введено нулей: 4
Mariya050
Mariya050
4,4(57 оценок)
2. program x; var n,y: integer; begin readln(n); while n> 0 do begin   n: =n - (n div 5);   y: =y+1; end; writeln(y); end.

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