Program zadacha;
var rad, a, b, c, p:real;
begin
p:=3.14;
writeln('Введите радиус круга: ');
readln(rad);
writeln('Введите сторону квадрата: ');
readln(a);
b:=p*(rad*rad);
c:=a*a;
if b>c then
writeln('Площадь круга больше, чем площадь квадрата.')
else
writeln('Площадь квадрата больше, чем площадь круга.');
end.
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>
3 раза.
После первого прохождения цикла
s=2; k=2;
после 2 прохождения цикла
s=5; k=3;
после 3 прохождения цикла
s=9; k=4;
при следующей проверки условие s<=7 не выполниться так как s>7
Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>