1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.

0 0

4 года назад

Помогите пожалуйста с заданием(

Leonid010884 [73]

Div целая часть деления
mod остаток

0 0

3 года назад

Число 1011000110^2 в развёрнутом виде

Лизза [14]

1011000110₂
<--------------- проще идти от конца к началу

0×2⁰+1×2¹+1×2²+0×2³+0×2⁴+0×2⁵+1×2⁶+1×2⁷+0×2⁸+1×2⁹

0 0

4 года назад

компьютерный вирус А заполняет 1 Гбайт за 1 месяц, вирус В заполняет 1 Гбайт за 2 месяца, вирус С заполняет 1 Гбайт за 3 месяца,

roma47 [20]

1) A=1Гб

0 0

4 года назад