Помогите пожалуйста. Два задания по ИКТ задали.1. Юзер задает 3 целых

Помогите пожалуйста. Два задания по ИКТ задали.
1. Юзер задает 3 целых числа в результате программки значения переменных меняются местами.
2. Юзер задает 2 целых числа, отыскать частное этих чисел.
Заблаговременно спасибо)

Задать свой вопрос
1 ответ
1.
var a,b,c,t:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Пример:
a, b, c:
5 8 3
a = 8 b = 3 c = 5

2.
var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
writeln(a,' / ',b,' = ',a/b:6:3);
end.

Пример:
a, b:
5 8
5 / 8 = 0.625
Галина Гофина
Господи, спасибо громадное! <3
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт