Question

Проверьте пожалуйста! дана последовательность чисел, сначала вводятся количество цифр в последовательности, а затем сами числа. Найти в этой последовательности максимальное число кратное 3.program nast;Var n;k;max:Integer;begin k:=0;repeat Write('введите число');Readln(n);if(n mod 3=0) and (n>max)then k:=nend;until n=0;WriteLn('количество чисел кратнных 3')end.​

Answer 1

Я немного подправил твою программу. Переменные в разделе var, имеющие одинаковый тип, перечисляются через запятую, а не через точку с запятой. Также, я убрал лишний end; и добавил в последний writeln() вывод переменной, в которой хранится максимальное число кратное 3.

program nast;

var

 n, k, max: Integer;

begin

 k := 0;

 repeat

   Write('Введите число: ');

   Readln(n);

   if(n mod 3 = 0) and (n > max) then k := n

 until n = 0;

 WriteLn('Максимальное число кратное 3: ', k);

end.

Answer 2

Ваш код содержит несколько ошибок. Вот исправленный вариант:

pascalCopy code
program nast;
var
  n, k, max: Integer;
begin
  k := 0;
  max := 0; // Не забываем инициализировать переменную max
  
  repeat
    Write('введите число: ');
    Readln(n);
    if (n mod 3 = 0) and (n > max) then
      max := n; // Заменяем k на max для сохранения максимального значения
  until n = 0;
  
  Writeln('максимальное число кратное 3: ', max); // Выводим максимальное значение
end.

В этом коде:

1. Я добавил инициализацию переменной max перед началом программы.
2. Заменил k на max в строчке max := n;, чтобы правильно сохранять максимальное значение кратное 3.
3. Добавил вывод максимального значения в конце программы.

Теперь программа должна работать корректно.