Требуется написать программу на языке паскаль - вопрос №166916 от nata524 17.09.2022 23:18

Question

Информатика: Требуется написать программу на языке паскаль или бейсик, которая будет выводить на экран количество чисел меньше 15 из 30 вводимых с клавиатуры чисел.

nata524 · Answer

var a: real;

n,i: integer;

begin

n:=0;

for i:=1 to 30 do begin

readln(a);

if a<15 then n:=n+1

end;

writeln(n);

end.

Язык Pascal