Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
9,5
Объяснение:
var
z, x : double;
i : Integer;
begin
x := 36;
z := 1;
i := 0;
repeat
z := (z+x/2)/2;
Inc(i);
until i < 4;
writeln(Format('%f', [z]));
end;
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
в не указан шаг изменения x , допустим он равен 1
x,y: real;
x: =1;
while x< =10 do
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end.
Популярные вопросы