Поменять местами два введенных числа. Паскаль.
Ответы на вопрос
Ответил Аноним
0
var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
Тестовое решение:
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
Тестовое решение:
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
Новые вопросы
Литература,
2 года назад
Математика,
2 года назад
Алгебра,
9 лет назад
Математика,
9 лет назад
Обществознание,
10 лет назад