Все 4 нужно написать программу для каждой из
Лера089
3
11.12.2019 14:24
2
Другие вопросы по теме Информатика
EvilHany
30.04.2020 14:21
MarinaSc1
30.04.2020 14:21
Руслана5999226
30.04.2020 14:21
русел222033
10.04.2020 15:17
shabalin06
10.04.2020 15:17
vasilisa12234
17.12.2020 15:20
golovko2006ovr6m1
17.12.2020 15:19
nastyaozernova
03.05.2021 20:19
Популярные вопросы
- Запиши координаты точек,изображённые на координатной прямой...
3 - Написать время в предложения например: 15:00-Es ist 3 Uhr. 13:45; 13:11;...
1 - Решения ответы в вариантах верные решения нужны...
1 - Смесь, состоящую из цинка и оксида цинка, растворили в концентрированной...
2 - Дети в историй Великой Отечественной войны 1941-1945 годов Жанр рассказ,...
1 - Придумать речення с схемой...
3 - После того, как разразился мировой финансовый кризис, компьютерная мышка...
1 - ТВОРЧЕСКАЯ РАБОТА составь задачу по чертежу. реши её уравнением.v1-30 км/чv2-15...
3 - Товарний поїзд має швідкість 54 км/год яку відстань він подолає за 25 хв...
3 - Те 3. Объясните, че Пишем 4. Напишите в группе краткое эссе-повествование....
2
1)
program next;
var a,s,d,f,g,h:integer;
begin
read(h);
for a:=1 to h do
begin
read(d);
if (d mod 4 =0)then
begin
f:=f+1;
end;
end;
writeln(f);
end.
2)
program next;
var a,s,d,f,g,h:integer;
begin
read(h);
for a:=1 to h do
begin
read(d);
if (d mod 6 =0)then
begin
f:=f+d;
end;
end;
writeln(f);
end.
3)
program next;
var a,s,d,f,g,h:integer;
begin
for a:=1 to 1000 do
begin
read(d);
if d=0 then
begin
break;
end;
if (d>9)and(d<100)then
begin
if (d mod 5 =0)then
begin
f:=f+1;
end;
end;
end;
writeln(f);
end.
4)
program next;
var a,d,f,g,h:integer;
s:real;
begin
for a:=1 to 1000 do
begin
read(d);
if d=0 then
begin
break;
end;
if (d>0)then
begin
if (d mod 8 =0)then
begin
h:=h+1;
f:=f+d;
end;
end;
end;
if (h>0)then
begin
s:=f/h;
writeln(s);
end
else
begin
writeln('0');
end;
end.
Объяснение: