Составьте программу на языке Паскаль найдите количество чисел меньше 3 из четырёх целых чисел заранее спасибо
Ответы
Ответ дал:
0
Ответ:
Объяснение:
var a,i,s:integer;
begin write('введите n - '); readln(n);
for i:= 1 to n do begin
write('введите a - ');readln(a);
if a < 3 then s := s + 1;
end;
write('s = ',s);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад