Составьте программу на языке Паскаль найдите количество чисел ...
Составьте программу на языке Паскаль найдите количество чисел меньше 3 из четырёх целых чисел заранее спасибо
Есть ответ
12.12.2022
433
Ответ
Ответ:
Объяснение:
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022