2^27 бит = 134217728 бит = 16777,216 килобайт = (примерно) 2^14 килобайт
Принтер для вывода
сканер для ввода
Program programma;
Uses crt;
var y,x: integer;
Begin clrscr;
write('Введите х = ');
readln(x);
if x>2 then y:=sqr(x)
else y:=4;
writeln('Y = ', y);
end.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты точки:');
var r:=ReadReal('Введите радиус окружности:');
if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')
else Writeln('Не попадает')
end.
<u>Примеры</u>
Введите координаты точки: -1.1 1.2
Введите радиус окружности: 2
Не попадает
Введите координаты точки: -1.1 0.8
Введите радиус окружности: 2
Попадает