Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.
Ограничено только размеров условного документа, создать можно сотни тысяч, единственное условие - 1 символ = 1 байт = 8 бит
Пусть первое число записано в виде a₁a₂a₃, второе - b₁b₂b₃, а поразрядные суммы находятся как c₁=a₁+b₁, c₂=a₂+b₂, c₃=a₃+b₃
Очевидно, что поскольку a,b ∈ [0;9], то min(c)=0, max(c)=18.
Пусть результирующее число D имеет запись d₁d₂d₃, d₁,d₂,d₃ ∈ [0;18],
тогда D запишется как c₁c₂c₃, если c₁<c₂ и как c₂c₁c₃ в ином случае.
Следовательно, две первые "цифры" в результате всегда следуют в порядке неубывания.
А) 171412 - разделяется только как 17 14 12, 17>14, это убывание, а оно НЕДОПУСТИМО.
В) 121419 - разделяется только как 12 14 19, сумма 19 НЕДОПУСТИМА.
С) 81714 - разделяется только как 8 17 14, 8<17, это неубывание и оно ДОПУСТИМО.
D) 15117 - разделяется только как 15 11 7, 15>14, это убывание, а оно НЕДОПУСТИМО.
E) 4809 - корректно не разделяется на три части и это НЕДОПУСТИМО.
Ответ: C
В России построена первая телеграфная линия - 40-е гг. 19 века.
В Америке изобретён телефон - 1876 г
Русский ученый Попов открыл радиосвязь - 1895 г.
Создан первый телевизор - 30-е гг. 20 века
В США начала функционировать первая в мире компьютерная - 1969 г.
Var
F:integer;
begin
write('F = ');
readln(F);
writeln( 'C = ',5/9 * (F - 32) );
<span>end.</span>