Укажите, значение переменной P после выполнения данного фрагмента программы:
P:=13;
WHILE P>0 DO P:=P-3;
ответ -2
Укажите, значение переменной L после выполнения данного фрагмента программы:
L:=1;
WHILE L<0 DO L:=L+2;
ответ 1
Укажите, сколько раз выполнится тело цикла:
L:=10;
WHILE L>0 DO L:=L-3;
ответ 4
Укажите, сколько раз выполнится тело цикла с данным заголовком:
K:=-1;
WHILE K<3 DO K:=K+2;
ответ 2
Укажите, значение переменной К после выполнения данного фрагмента программы:
K:=-1;
WHILE K<4 DO K:=K+2;
ответ 5
var
x: real;
cost: real; //Стоимость капитала
i: integer;
begin
cost:= 20; //Начальная стоимость равна 20
writeln('Введите ежегодный прирост в процентах');
readln(x); //Вводим ежегодный прирост в процентах
for i:= 1626 to 2012 do {Каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost:= cost + cost * (x / 100);
writeln('Стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {Выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
Отметь решение как лучшее)