На языке Паскаля. Задачи на цикл.

Введите 20 чисел. Посчитайте среди них количество чисел, значение которых от 0 до 10.

Question

Информатика

Милана

25 марта, 22:42

На языке Паскаля. Задачи на цикл.

Введите 20 чисел. Посчитайте среди них количество чисел, значение которых от 0 до 10.

+5

Ответы (1)

Знаете ответ на вопрос?

Феофила · Answer 1

Var n, i, k:integer;

begin

for i:=1 to 20 do

begin

readln (n) ;

if (n>=0) and (n<=10) then k:=k+1;

end;

writeln ('Kol-vo chusel = ', k) ;

end.

На языке Паскаля. Задачи на цикл.Введите 20 чисел. Посчитайте среди них количество чисел, значение которых от 0 до 10.

На языке Паскаля. Задачи на цикл.

Введите 20 чисел. Посчитайте среди них количество чисел, значение которых от 0 до 10.