Составьте программу на языке паскаль найдите количество чисел меньше 3 из четырёх целых чисел заранее
dashaegirova
1
17.05.2019 08:18
0
Другие вопросы по теме Информатика
azamatarslanov0
11.07.2019 13:30
frazka228
27.08.2019 23:50
aliina000
14.12.2021 20:09
BREYKER
13.05.2020 19:28
irunahruha
12.12.2020 07:41
yana08042004
12.12.2020 07:43
007София
12.12.2020 07:43
228665123
21.04.2020 15:29
astashkin222
02.07.2019 10:00
Популярные вопросы
- 70 решить ! дано m(a)=10 г m(co2)=27.5 г m(h2o)= 22.5 г d(o2)=0.5 найти...
3 - Переказ твору у батьківській хаті 6 клас...
1 - Твір на тему ах війна що ти підла зробила? ?...
3 - Имоторная лодка догоняет плот,плывущий от нее на расстояние 35км.скорость...
1 - Спишите. из однокоренных слов подчеркните которые могут быть проверочными:...
2 - Определите силу тяжести, действующую на тело массой 3,5 кг/ 400г/ 1,5т/...
3 - Укажи число молекул, содержащихся в порции глюкозы количеством 0,1...
3 - 381. рассмотрите таблицу и ответьте на вопросы: 1 мм 1см 1дм 1м 10м...
3 - Объясните, ! мощность двигателя швейной машины 40 вт. какую работу...
2 - Мистеру фоксу подарили волшебную коробку. если в эту коробку положить...
3
Объяснение:
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.