{pascalabc}
program f0rwardirop;
var
r,x,y: real;
b: boolean;
i: integer;
s: string;
begin
s: =' -=alphaeus=- ';
for i: =1 to 22 do begin write(s[i]); sleep(200) end;
writeln; write('ok, введите r = '); readln(r);
write('теперь введите х = '); readln(x);
write('и, наконец, введите y = '); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
А)
program c1;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 1 / 3;
write(c);
end.
Б)
program c2;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3 + 6;
write(c);
end.
В)
program c3;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3;
write(c);
end.
Объяснение:
А)
program c1; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 1 / 3; // c = a + 1 ÷ 3
write(c); // Выводим ответ
end. // Конец программы
Б)
program c2; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3 + 6; // c = a + 4 ÷ 2 × 3 + 6
write(c); // Выводим ответ
end. // Конец программы
В)
program c3; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3; // c = a + 4 ÷ 2 × 3
write(c); // Выводим ответ
end. // Конец программы
Получаем: 32;
32*2 = 64байта
2)
Скорость: 4кб/с;
Время: 4мин. 16с. = 256c;
Размер: ?мб;
Размер = 4кб/с * 256с = 1024кб; 1024кб / 1024 = 1мб;
ответ: 1мб