var s:string;
BEGIN
readln(s);
delete(s,pos('(',s),pos(')',s)-pos('(',s)+1);
writeln(s);
end.
7гб=7340032кб
36мб= 288000000бит
54кб= 0,000051498413086гб
148бит= 0,01806640625кб
Но что то слишком большие цифры для 6 класса.
Var
x1,y1,x2,y2:byte;
Begin
Read(x1,y1,x2,y2);
if (x1-x2 = 0)xor(y1-y2 = 0) then Write('YES')
else Write('NO')
End.
Используем закон де Моргана, закон двойного отрицания, идемпотентность. Получаем A+B. Подробное решение во вложении.
<span>3)program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.
Пример:
</span><span>b=5
h=4
p=18</span>