Даны 2 числа А и В.Найти наибольшее и наименьшее из них и вывести на экран.Паскаль.Помогите пожалуйста
Answers & Comments
sergo1439
Uses crt; var a,b:integer; begin textBackground(15); textColor(1); clrscr; writeln('введите A ,B через пробел'); write('A=');readln(a);write('B=');readln(b); if (a>b) then begin writeln('наибольшее A:',a); writeln('наименьшее B:',b); end else if (awriteln('наибольшее B:',b); writeln('наименьшее A:',a); end else if (a=b) then writeln('A=B, A:',a,' B:',b); end.
Answers & Comments
var
a,b:integer;
begin
textBackground(15);
textColor(1);
clrscr;
writeln('введите A ,B через пробел');
write('A=');readln(a);write('B=');readln(b);
if (a>b) then begin
writeln('наибольшее A:',a);
writeln('наименьшее B:',b);
end
else if (awriteln('наибольшее B:',b);
writeln('наименьшее A:',a);
end
else if (a=b) then
writeln('A=B, A:',a,' B:',b);
end.