Что будет выведено на экран в результате выполнения фрагмента программы: x:=1; For n:=1 to 8 do begin x:=x+0.1; writeln (x:8:1); end;

В результате выполнения фрагмента программы: x:=1; For n:=1 to 8 do begin x:=x+0.1; writeln (x:8:1); end; получим результат 1,8.

Проверим это выполнив последовательно операции из программы.

Тогда получаем следующее:

x = 1,

1 шаг:

n = 1, x = 1 + 0.1 = 1.1;

2 шаг:

n = 2, x = 1.1 + 0.1 = 1.2;

3 шаг:

n = 3, x = 1.2 + 0.1 = 1.3;

4 шаг:

n = 4, x = 1.3 + 0.1 = 1.4;

5 шаг:

n = 5, x = 1.4 + 0.1 = 1.5;

6 шаг:

n = 6, x = 1.5 + 0.1 = 1.6;

7 шаг:

n = 7, x = 1.6 + 0.1 = 1.7;

8 шаг:

n = 8, x = 1.7 + 0.1 = 1.8;

На экране выведется: 1,8.