I=50*60*650=1950000байт=1,86 Мбайт
1)нет
2)700 Мбайт/1,86Мбайт=376(округлив до целых)
3)4,7 Гбайт/1,86Мбайт=2587(округлив до целых)
program E7;
var x: integer;
begin
writeln('vvedite znachenie gradusnoi meri ugla');
readln(x);
if a=180 then writeln('razvernutii') else writeln('ne razvernutii');
readln;
end.
<em>Если вы работаете в школе на программе FreePascal, то перед "end" можно "readln" не писать. Если же вы работаете на программе TurboPascal, "readln" перед "end" обязательно нужно писать.</em>