Что будет выведено на экран после выполнения следующих операторов:

p:=1; i:=1;

repeat p: = p*2

i: = i-1;

until i<1;

1) p = p * 2 = 1 * 2 = 2;

2) i = i - 1 = 1 - 1 = 0;

3) i < 1 = true = > выход из цикла

Результат: p = 2; i = 0

Program (и название) ;

Var a, b, c word;

begin writeln (Введите a, b) ;

readln (a, b) ;

c:=a+b; writeln ('c='c) ;

readln, end.

Только не забывай точку с запятой всегда ставить, это очень важно! И потом когда вот это всё введёшь, надо нажать на зелёный треугольник и программа начнёт работать и вводишь сначала 5 нажимаешь ентер потом 2, нажимаешь ентер, и получается ответ!