Паскаль срочно 90 баллов Уровень 9 класса 1.Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа дол...

- 24 January 2021
- Автор: lnemov
Паскаль срочно 90 баллов
Уровень 9 класса

1.Напишите программу, которая в последовательности натуральных чисел определяет максимальное число,
кратное 4. Программа должна вывести одно число — максимальное число, кратное 4

2.Напишите программу, которая в последовательности натуральных чисел определяет кол-во чисел, кратных
4. Программа должна вывести количество чисел, кратных 4.

3.Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел,
оканчивающихся на 4. Программа должна вывести одно число — сумму чисел, оканчивающихся на 4
- 24 January 2021
- Ответ оставил: 13nisa13
1.
var n,i,a,m:integer;
begin
m:=-1;
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число (больше -1): ');
readln(a);
if (a mod 4 = 0) and (a>m) then m:=a
end;
write('Максимальное число, кратное 4, равно ',m);
end.

2.
var n,i,a,k:integer;
begin
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число: ');
readln(a);
if a mod 4 = 0 then k:=k+1
end;
write('Количество чисел, кратных 4, равно ',k);
end.

3.
var n,i,a,s:integer;
begin
write ('Введите количество чисел в последовательности: ');
readln(n);
for i:=1 to n do
begin
write ('Введите число: ');
readln(a);
if a mod 10 = 4 then s:=s+a
end;
write('Сумма чисел, оканчивающихся на 4, равна ',s);
end.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (04.02.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Некоторый алфавит состоит из 64 символов. В сообщении 60 символов. Определите информационный объем сообщения. Определите в виде эссе личный уровень владения современными информационными технологиями. Опишите имеющиеся навыки работы в: - офисных программах (текстовый редактор, табличный процессор, построит... Зачем в C++ нужна библиотека stdio.h, и какова ее функция? составить блок- схему решения выражения (23+34)*57/3 ПАСКАЛЬ. Решите задачу с помощью строк. Пользователь водит слово - мама, и букву - м. Паскаль выводит количество этих самых букв из строки, которую мы ввели , то есть 2. Еще пример: Введите слово... Дам 20 баллов! Дано логическое выражение, зависящее от 6 логических переменных: X1 ∧ ¬X2 ∧ X3 ∧ ¬X4 ∧ X5 ∧ X6 Сколько существует различных наборов значений переменных, при которых выражение истин... Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Сколько битов в 20 ниблах Спасите!!!!!!!!!!!!!!!!!!!!!!!!!!!! Таблица в Microsoft access служит для …. данных (может быть несколько) а) автоматизации ввода б) ввода в) хранения Арбуз с точки зрения агронома, покупателя, художника Расставьте по убыванию: 1 Бит, 1байт, 1Кбайт, 1Мбайт, 1Гбайт, 1Тбайт ПОМОГИТЕ ПОЖАЛУЙСТА!!!)) Вводится трехразрядное двоичное число. Перевести это число в десятичную систему счисления.