Без Имени Без Фамилии
Нужно сделать : Даны два числа. Вывести сначала большее, а потом меньшее из них.
Образец:
Программа
Program z2;
Var a, b, c:
Real;
Begin
Writeln (’ Введите a, b,с’ );
Readln (a, b,c);
If a>b
then c:=a
else
c:=b;
Writeln(’c=’, c:3:2);
End.
Решение: Нужно доделать чтобы правильно работала:
Program z2;
Var a,b:integer;
begin
writeln('Введите наибольшее a и наименьшее числа');
readln(a,b);
if (a>b)
then writeln(a,' ',b)
else writeln (b,' ',a);
end.