Пожалуйста, представьтесь:

Оператор повторения while

1. Какой результат будет выведен после выполнения алгоритма программы?

var s,i:integer;
begin
s:=0; i:=0;
while i<5 do i:=i+1; s:=s+2*i;
writeln(s);
end.

0

5

 10

30

2. Определите значение переменной s после выполнения программы:

var s,i:integer;
begin
s:=0; i:=10;
while i>5 do begin i:=i-1; s:=s+i;end;
writeln(s);
end.

3. Данный алгоритм предназначен для того, чтобы определить:

var n,s,c,k:integer;
begin
s:=0; k:=0; read(n);
while n>0 do begin c:=n mod 10; s:=s+c; k:=k+1; n:=n div 10; end;
writeln(k); writeln(s);
end.

количество цифр числа;

сумму цифр числа;

младшую и старшую цифры числа;

есть ли в записи числа цифра "5";

является ли данное число простым

4. Для какого начального значения переменной х завершится выполнение оператора цикла:

var x:real;
begin
read(x);
while x<1.3 do x:=sqr(x);
writeln(x);
end.

0.5

0.9

1.1

5. Установите, что будет выведено на экран в результате выполнения следующей программы:

var n,x:integer;
begin
n:=2;
while n<=10 do n:=n*n; writeln(n)
end.