Требуется написать программу на языке паскаль или - вопрос №166014 от nalimovshurik 10.05.2020 02:05

Question

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

nalimovshurik · 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