Поскольку алгоритма нет, имею право ввести свой:)
procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
В ответе будет
а = 10
b = 18
с = 26 =)</span>
1)
A = 7; B = 3
A mod B = 0 ⇒ 7 mod 3 = 0 ⇒ 1 = 0 ⇒ Нет
A = A*B = 7*3 = 21
Ответ: A = 21
2)
A = 12; B = 4
A mod B = 0 ⇒ 12 mod 4 = 0 ⇒ 0 = 0 ⇒ Да
A = A div B = 12 div 4 = 3
Ответ: A = 3
Срочно-срочно?
set /p a="Dir: "
copy %a%\*.txt C:\Reserv\
Задание 1
print("Her favorite color is" + {color})
Задание 2
print ("Please enter your name >>")
i = raw_input()
print ("Hello" +" "+ i + "!")