ПОМОГИТЕ СРОЧНО!!! НЕСЛОЖНО !!!!!
1. Даны два случайных числа. Определить а) наибольшее б) наименьшее
2. Даны три числа. Вывести а) наибольшее б) наименьшее
ПАСКАЛЬ
Ответы
Ответ дал:
0
var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад