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.Если нигде не ошибся, то должно работать именно так
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
