Задать вопрос
19 февраля, 07:22

Написать программу на Паскале:

На вход подаются целые числа до появления нуля. Вывести максимальное количес тво подряд идущих чисел, кратных 3.

+3
Ответы (1)
  1. 19 февраля, 09:23
    0
    Var

    x, n, max: integer;

    begin

    n : = 0;

    max : = 0;

    while true do

    begin

    read (x) ;

    if (x mod 3 = 0) and (x0) then n : = n + 1

    else begin if (n > max) then max : = n; n : = 0; end;

    if (x = 0) then break;

    end;

    write (max) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать программу на Паскале: На вход подаются целые числа до появления нуля. Вывести максимальное количес тво подряд идущих чисел, ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы