Ответы на вопрос:
ответ:
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.
объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
17FC16санын ондук система канча чыгат...
drwnd21.09.2021 21:34 -
.Найдите значения выражений, если A=0, B=1, C=1 A & B | C...
HFccv17.09.2020 16:06 -
Написать программу в с++ даны натуральные числа , действительные...
milaboit02.01.2022 00:27 -
Надо написать программу в паскале. 1)координаты двух различных...
Kamilena201026.07.2022 13:58 -
нужно написать программу Даны x, y, z. Вычислить a, b, если:...
LisenokLove200324.07.2022 20:47 -
нужно написать программу Вычислить: 10 S=å(xi3+8)0.5 , где xi=xi-1+dx2;...
кристина196625.03.2022 20:50 -
Напишите программу, которая выделяет в другой массив все элементы...
Петуч07.04.2022 08:57 -
Объясните решение этой задачи....
PeaceMaker133729.03.2020 01:06 -
Сетевые черви- это 1) программы, распространяющиеся только при...
ksenchhh10.05.2023 06:51 -
Из букв стоящих в клеточках попробуйте составить слово устройство...
tanyagorelik13.09.2021 20:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.