Question

Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале авс

Answer 1

По идее ок)

program prim;

var a:array [1..3] of integer;

i:integer;

c:integer;

begin

write('Введите 3 числа: ');

for i:=1 to 3 do

readln(a[i]);

for i:=1 to 3 do

if a[i] > c then c:=a[i];

if (c mod 3=0) then

writeln(c, ' кратно 3')

else

writeln(c, ' не кратно 3');

end.

Answer 2

Для нахождения наибольшего из трех чисел в языке Паскаль, вы можете использовать следующий код. В этом коде также будет проведена проверка, является ли наибольшее число кратным трём.

pascalCopy code
program FindLargestAndCheckDivisibility;

var
  num1, num2, num3, largestNum: Integer;

begin
  WriteLn('Введите три числа:');
  ReadLn(num1, num2, num3);

  { Находим наибольшее число }
  if (num1 >= num2) and (num1 >= num3) then
    largestNum := num1
  else if num2 >= num3 then
    largestNum := num2
  else
    largestNum := num3;

  WriteLn('Наибольшее число: ', largestNum);

  { Проверяем кратность наибольшего числа трём }
  if largestNum mod 3 = 0 then
    WriteLn(largestNum, ' кратно трём.')
  else
    WriteLn(largestNum, ' не кратно трём.');
end.

Программа позволяет ввести три числа и затем выводит наибольшее из них. После этого проверяет, является ли оно кратным трём или нет.

Для запуска программы вам понадобится среда разработки на языке Паскаль, такая как Free Pascal или Turbo Pascal. Вы можете скопировать этот код в среду разработки, скомпилировать и запустить для проверки работы программы.