Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
(C#)
N=Console.Read();
Console.Write(N);
N=N-2//на случай если N=2 или 1
while(N>3)
{
N=N-2
Console.Write(N);
}
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.