Регистрация
katwyn
27.11.2022 10:30
Информатика
Есть ответ 👍

Составить программу (по паскалю) даны целые числа найти максимальное число.

290
323
Посмотреть ответы 2

Ответы на вопрос:

Каримончик
Каримончик
4,4(50 оценок)
Begin   var n, i: integer;   var max, k: real;   write('n = ');   readln(n);   readln(max);   for i : = 2 to n do   begin     readln(k);     if (k > max) then max : = k;   end;   writeln('> ', max); end.
livr5
livr5
4,6(78 оценок)

var a,b: integer;

function f(a,b: integer): integer;

begin

if (a< > 0) and (b< > 0) then begin

if (a> b) then

a: =a mod b else

b: =b mod a;

f(a,b);

end else

writeln(abs(a-b));

end;

begin

writeln('введите 2 натуральных числа');

readln(a,b);

write('нод(',a,',',b,') = ');

f(a,b);

end.

Популярно: Информатика