Страница 101 - гдз по информатике 11 класс учебник Босова, Босова

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

var s, n: integer;
begin
n:=0;
s:=1000;
while s>=100 do
begin
s:=s-2;
n:=n+1
end;
write (n)
end.

Ответ: 451.

var s, n: integer;
Мы обозначаем переменные целого типа
Begin
Начало программы
n:=0;
s:=1000;
присваиваем переменным значения
while s>=100 do
цикл, пока s>=100 - выполнять цикл
begin
начало цикла
s:=s-2;
находим разность s-2
n:=n+1;
прибавляем к n 1
end;
конц цикла
writeln (n);
выводим n
end.
конец программы

10. Получив на вход число х, приведённая ниже программа выводит два числа — m и n.

var x, m, n: integer;
begin
readln (x);
m:=0; n:=0;
while x>0 do
begin
if n‹x mod 10 then n:=x mod 10;
m:=m+1;
x:=x div 10;
end;
writeln (m); write (n)
end.

Известно, что при некотором значении х были выведены числа 4 и 8. Укажите наибольшее и наименьшее из таких чисел х. Сколько всего существует таких х?

Данная программа выводит количество цифр в числе и наибольшую цифру.

Наибольшее число: 999999999.

Наименьшее число: 1.

11. Напишите программу, выводящую на экран все чётные трёхзначные числа.

var i: integer;
begin
for i:=100 to 999 do
if i mod 2 =0 then
writeln(i);
end.

12. Напишите программу, подсчитывающую сумму квадратов всех чисел от 1 до n.

var i, s, n: integer;
begin
writeln ('Введите n');
readln (n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln(s);
end.

13. Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число.

var x, n: integer;
begin
writeln('Введите число x');
read(x);
writeln('Введите цифру n');
read(n);
while ((x mod 10)‹›n) and (x‹›0) do
x:=(x div 10);
if (x mod 10)=n then writeln('Да')
else writeln('Нет')
end.

14. Разработайте программу перевода десятичного натурального числа n в троичную систему счисления.

var n, tri, p: integer;
begin
write('Введите число ');
read(n);
p:=1;
while n‹›0 do
begin
tri:=tri+p*(n mod 3);
n:=(n div 3);
p:=p*10
end;
writeln(‘В троичной системе ’, tri);
end.