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";
является ли данное число Для какого начального значения переменной х завершится выполнение оператора цикла:
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.
Так как на большинстве версий "Паскаля" мы не можем установить шаг цикла в for, будем использовать цикл while для решения данной задачи.
Возьмём переменную i для хранения нужных нам значений, дадим ей значение равное 1001, запустим цикл while, который будет выполняться пока наша i <= 1025, в цикле у нас будет выводиться на экран значение переменной i, а затем переменная увеличиваться на 3.
Алгоритм на языке Паскаль:
var
i : integer;
begin
i := 1001;
while i <= 1025 do
begin
write(i,' ');
i := i + 3;
end;
end.