ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалась меньшее из значений, а в B - большее. Вывести новые значения переменных A и B
Язык Pascal
Ответы
Ответ дал:
1
(Справка: С - дополнительная переменная. Нужна для того, чтобы мы могли поменять А и В местами)
var A,B,C:real;
begin
C:=0;
writeln('Напишите значения А и В');
readln(A,B);
if A<B then
writeln('A=',A,' ','B=',B)
else
begin
C:=A;
A:=B;
B:=C;
writeln('A=',A,' ','B=',B)
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад