<span>uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
Scirkle:=pi*sqr(r);
end;
begin
clrscr;
writeln('r1,r2');
readln(r1,r2);
writeln('Площадь кольца равна ',Scirkle(r1)-Scirkle(r2));
readln;
end.</span>
Var A:integer;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
if (A div 10000 = A mod 10)and((A div 1000) mod 10 = (A div 10) mod 10) then Write('Число является полиндромом')
else Write('Число не является полиндромом')
End.
I (размер файла) = K (количество пискелей) * i (объем одного пикселяя)
Например если разрешение 1280x720, то K=1280*720
N - Количество цветов, через него можно найти i. N=2^i
Например если черно-белое изображение, т. е. 2 цвета, то N=2^i=2 ⇒ i=1
Если 256 цветов, то N=2^i=256 ⇒ i=8
Program Egor_Sasha;var num_Eg, num_Sash,pri,pri1: real;var mes_Eg,mes_Sash: real;beginwriteln('Numer Egora');readln(num_Eg);writeln('Numer Sashi');readln(num_Sash);writeln('Mesto Egora (verkh=1,vniz=0)');readln(mes_Eg);writeln('Mesto Sashi (verkh=1,vniz=0)');readln(mes_Sash);pri:=num_Sash+1;pri1:=num_Eg+1;if num_Eg=pri then writeln('YES') else writeln('NO');if num_Sash=pri1 then writeln('YES') else writeln('NO');if mes_Eg=1 then writeln('Egor-HIGH')else writeln('Egor-LOW');if mes_Sash=1 then writeln('Sasha-HIGH')else writeln('Sasha-LOW');end.