If8. Даны два числа. Вывести вначале большее, а затем меньшее из них.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program If7; var R1, R2: Real; begin Write('Введите перовое число: '); Readln(R1); Write('Введите второе число: '); Readln(R2); if R1>R2 then begin writeln(R1); writeln(R2); end else begin writeln(R2); writeln(R1); end; end. |
Другие задачи из раздела If можно посмотреть здесь.
var a,c :real;
begin
writeln (‘Введите данные: ‘);
readln (a,c);
if a>c then writeln (a)
else writeln (c);
if a<c then writeln (a)
else writeln (c);
end.