Question

составить АЛГ:
а) Дано числа x,y. найти максимальное из 2-х чисел, из 3-х чисел.

Answer 1

2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.

3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.