// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(ReadlnString('Введите исходное число:')*2)
end.
<u><em>Тестовое решение</em></u>
Введите исходное число: 210345
210345210345
A) 2,4,6
B) 2 - хостином выделяется именно место на компьютерах, именнующихся серверами.
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
128 Кбайт = 128 * 1024 байт = 128 * 8 * 1024 бит = 1048576 бит.
Когда ты присваиваешь переменной какое-то значение ты меняешь содержание переменной