Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 октября 2022 16:55
1400
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
Остались вопросы?
Еще вопросы по категории Информатика
Для какого из приведённых значений числа X ложно высказывание: (X = 9) ИЛИ НЕ (X < 10)? 1) 8 2) 9 3) 10 4) 11 Ответ: Для какого...
В классе учатся 4 девочки: Маша, Валя, Таня, Галя. 2 из них одного роста. Известно, что Таня выше маши, которая ниже Гали. Таня ниже Вали, которая выш...
Какими клавишами можно скопировать текст в буфер обмена? А) Ctrl + Ins Б) Shift + Del В) Alt + Ctrl Г) Shift + Ins...
Добрый день! Помогите с решением задачи для 6 класса..... Железнодорожный перегон — участок железнодорожной линии, который соединяет соседние п...
растровый газетный рисунок состоит из точек четырех цветов: черного, темно-серого, светло-серого, белого. Сколько битов понадобится для двоичного коди...