Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 октября 2022 16:55
1516
1.Напишите программу, которая в последовательности натуральных чиселопределяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
1
ответ
1)var i,x,n,a:integer
begin
x:=0;
read(n);
for i:=1 to n do //Если количество чисел не дано, то надо писать while not eof.
begin
read(a);
if a mod 4 = 0 then inc(x) //x:=x+1;
end;
write(x);
end.
2)var i,min,a,n:integer;
begin
min:=30001;
read(n);
for i:=1 to n do begin
read(a);
if a mod 3 = 0 then
if a<min then min:=a;
end;
write(min);
end.
В компиляторе не проверял. Удачи.
begin
x:=0;
read(n);
for i:=1 to n do //Если количество чисел не дано, то надо писать while not eof.
begin
read(a);
if a mod 4 = 0 then inc(x) //x:=x+1;
end;
write(x);
end.
2)var i,min,a,n:integer;
begin
min:=30001;
read(n);
for i:=1 to n do begin
read(a);
if a mod 3 = 0 then
if a<min then min:=a;
end;
write(min);
end.
В компиляторе не проверял. Удачи.
0
·
Хороший ответ
14 октября 2022 16:55
Остались вопросы?
Еще вопросы по категории Информатика
В следующих высказываниях выделите простые высказывания, обозначив каждое из них буквой; запишите с помощью букв и знаков логических операций каждоесо...
Какая кнопка или кнопки позволит(лят) тебе обновить окно (очистка кэша)? CTRL с любой стрелкой CTRL + C CTRL + V CTRL + Z CTRL + A ALT+ F4...
«Ель, кедр, сосна, кипарис, лиственница, можжевельник — хвойные растения». Ученик вычеркнул из списка название одного из растений. Заодно он вычеркнул...
Выясните, что представляет собой обратная польская* запись, и вычислите значение записанного с её помощью выражения: 3 4 + 2 × 1 6 × −. *Обратная по...
Найдите значение логических выражений 1) (1 \/ 1) \/ (1 \/ 0) 2) (0 \/ 1) \/ (1 \/ 0) 3) 1 & (1 & 1) & 1 4) ((1 & 0) \/ (1 & 0)...
Все предметы 
