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

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

Question

Информатика

Ипат

2 декабря, 19:07

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

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

+4

Ответы (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.