Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>
<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
Гбдва последовательность Если не трудно поставь ответ как лучший
Program zz;
var a:integer;
begin
Writeln('Введите число:');
readln(a);
write('Число в обратном порядке:');
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
end.
500*400 = 200000 пикселей / 8 / 1024 = 24,4140625
80 кбайт / 24,4140625 = 3,2768 окргуляем в меньшую до целого = 3.
2^3 = 8 цветов