Напишите прогу в паскале

Вводится последовательно 15 чисел найти самое большое положительно кратное 3

Question

Информатика

Леонида

25 сентября, 18:15

Напишите прогу в паскале

Вводится последовательно 15 чисел найти самое большое положительно кратное 3

+5

Ответы (1)

Знаете ответ на вопрос?

Дионисия · Answer 1

Var i, a, b, max: integer;

begin max : = - maxint; b : = 0; for i : = 1 to 15 do begin Write ('Введите число: ') ; Readln (a) ; if (a mod 3 = 0) then if (a > max) then max : = a; end; Write ('Самое большое число кратное 3 = ', max) ; end. Если нигде не ошибся, то должно работать именно так

Напишите прогу в паскалеВводится последовательно 15 чисел найти самое большое положительно кратное 3

Напишите прогу в паскале

Вводится последовательно 15 чисел найти самое большое положительно кратное 3