Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута
Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение:
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14