Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
2 единицы т.к 1025=10000000001 в двоичной системе счисления
на 1 дереве - 5
на 2дереве - 7
var x,s,n: integer;
begin
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
end.
Популярные вопросы