Задание:
Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран количество чисел меньше 15 из 30 вводимых с клавиатурычисел.
Решение:
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
Знаете другой ответ?