// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S = ',Power(ReadReal('Введите сторону квадрата'),2))
end.
Var r1,r2,ds:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
ds:=pi*abs(r1*r1-r2*r2);
writeln('ds = ',ds);
end.
Пример:
R1 = 6
R2 = 4
ds = 62.8318530717959
Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
Для хранения одной точки черно-белого изображения требуется log(2)2 = 1 бит. Память для всего изображения = 16*32*1 бит = 16*32/8 байт = 64 байта.
Фух, держи) Вот, Юный Натуралист посмотрела в интернете, вроде бы правильно.