1) предусловие
program w;
var x,y: real;
begin
x:=1;
while x<=2 do
begin
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
end
end.
2) постусловие
program r;
var x,y: real;
begin
x:=1;
repeat
y:=10*x/3;
writeln ('x = ',x:3,' y = ',y:0:3);
x:=x+0.2
until x>2
end.
Объяснение:
1) предусловие
задаем начальное значение х
Цикл:
проверяем условие
считаем у
выводим значения х и у на экран
изменяем х на шаг
2) постусловие
задаем начальное значение х
Цикл:
считаем у
выводим значения х и у на экран
изменяем х на шаг
проверяем условие
125(10) будет
175(8)= 1*8^2+7*8^1+5*8^0 = 64+56+5 = 125(10)