Var i,a,b:integer;
er:boolean;
begin
Repeat
Write('Введите a: ');
Readln(a);
Write('Введите b: ');
Readln(b);
if a*b<0 then begin
er:=true;
Writeln('Ошибка. Корень из отрицательного числа вычислять нельзя.');
end;
until not(er=true);
Writeln('SQRT(a*b) = ',sqrt(a*b));
<span>end.</span>
Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end. Писал на скорую руку,могут быть ошибки
Разрешающая способность 200 dpi означает, что на отрезке длиной 1 дюйм сканер различит 200 точек.
Необходимо перевести разрешающую способность в точки на сантиметр (1 дюйм=2,54см):
200 dpi/2.54=79точек/см
Следовательно, размер изображения в точках будет 1659*2291 точек
Общее количество точек равно 1659*2291=3800769
Объем рисунка равен 16*3800769=60812304бит=7601538байт=7423 Кб=7,2Мб
Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Сообщение составит 32 * 2500 = 80000 бит = 10000 байт