Ответ учителя по предмету Информатика
Var
A,B,C:real;
Begin
Write(‘A = ‘);ReadLn(A);
Write(‘B = ‘);ReadLn(B);
Write(‘C = ‘);ReadLn(C);
A:=C;
B:=A;
C:=B;
WriteLn(‘A = ‘,A);
WriteLn(‘B = ‘,B);
WriteLn(‘C = ‘,C);
End.
Если имеется ввиду, поменять местами переменные в заданном порядке, то вот:
Var
A,B,C:real;
Begin
Write(‘A = ‘);ReadLn(A);
Write(‘B = ‘);ReadLn(B);
Write(‘C = ‘);ReadLn(C);
Swap(A,C);
Swap(B,A);
Swap(C,B);
WriteLn(‘A = ‘,A);
WriteLn(‘B = ‘,B);
WriteLn(‘C = ‘,C);
End.
Похожие вопросы от пользователей
1)0,008+а^3
2)0,216-b^3
3)1+0,027n^3
4)0,125m^3-1
помогите пожалуйста
a) с 9ч.05мин. утра до 7ч. 57мин.
b) с 10ч. 45мин. утра до 7ч.57мин. вечера..
в) с 21ч. 30мин.до 8ч. 45 мин. следующего дня???