Размещено 4 года назад по предмету
Информатика
от mashakanshina
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.