12 способами можно составить 2 танцевальные пары
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.
412030 - расшифровка которую можно расшифровать единственным способом, потому как нет значений 41 и 0.
Расшифровка 4 -1 - 20 - 30 = Г-А-Т-Ь
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.