Паскаль. Программа. Пж, можно и не отвечать Const n = 4;
var i, x: integer;
var maximum, count: integer;
begin
maximum := 999;
for i:=1 to n do begin
read( x );
if x mod 3 = 0 then begin
count := count + 1
end;
end;
if count > 0 then begin
writeln(count);
writeln(maximum);
end
else
writeln('NO');
end.
Паскаль. Программа. Пж, можно и не отвечать Const n = 4;
var i, x: integer;
var maximum, count: integer;
begin
maximum := 999;
for i:=1 to n do begin
read( x );
if x mod 3 = 0 then begin
count := count + 1
end;
end;
if count > 0 then begin
writeln(count);
writeln(maximum);
end
else
writeln('NO');
end.
var i, x: integer;
var maximum, count: integer;
begin
maximum := 999;
for i:=1 to n do begin
read( x );
if x mod 3 = 0 then begin
count := count + 1
end;
end;
if count > 0 then begin
writeln(count);
writeln(maximum);
end
else
writeln('NO');
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Данная программа на языке Паскаль считает количество чисел, которые делятся на 3 без остатка из последовательности из n чисел. Затем выводит количество таких чисел и максимальное значение из введенных чисел, если такие числа есть. Если нет таких чисел, то выводит сообщение "NO".
Пояснение к переменным:
n: константа, определяющая количество чисел в последовательностиi, x: переменные типа integer для цикла и ввода чиселmaximum, count: переменные типа integer для хранения максимального значения и количества чисел, делящихся на 3Код программы:
Установка максимального значения переменной maximumЦикл от 1 до n для ввода чиселПроверка деления числа на 3 без остатка и увеличение счетчика countПроверка наличия чисел, делящихся на 3, и вывод количества и максимального значения или сообщения "NO"