Program v;
Var a,b:integer;
BEGIN
readln (a);
readln (b);
if (a > b) then writeln (a)
else
begin
writeln (a);
writeln (b);
end;
END.
1) 1гб делите на 0.5 гб =500
2)700+500=1200
Извините если не правильно понял
5610= (все по порядку )
1010111101010
12752
15ЕА
14210=11011110000010
33602
3782
var i,n,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+i*i*i;
writeln('s=',s);
end.
Разделение предложений в тексте по смыслу