Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n,z: longint;
begin
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
end.
пщояк 17 27 16 33 17
нщёп 15 27 7 17
15 гб = 15*1024*8 = 122 880 мбит 32 минуты = 1920 секунд
122 880/1920 = 64 мбит/с
чесно говоря без них куда легче
var s: string;
i: integer;
read(s);
for i: = 1 to length(s) do
if i mod 2 = 0 then s[i]: ='*';
writeln(s);
с ними только больше кода
if i mod 2 = 0 then begin
delete(s,i,1);
insert('*',s,i);
end;
Популярные вопросы