Задание 5 Параграф 3.5 ГДЗ Босова 8 класс (Информатика)

Рассмотрим вариант решения задания из учебника Босова, Босова 8 класс, Бином: 5. Запишите на языке Паскаль программы решения задач № 25-29 из § 2.4. Используйте оператор while. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 8 bosova8 3-5/5 832

Выполнение

Запишем программы на языке Паскаль с использованием оператора while.

program N_25;
var
  k: integer;
begin
  k := 0;
  while not (справа свободно) do
  begin
    закрасить;
    вправо;
    k := k + 1;
  end;
  while not (снизу свободно) do
  begin
    закрасить;
    вниз;
    k := k + 1;
  end;
  while not (слева свободно) do
  begin
    закрасить;
    влево;
    k := k + 1;
  end;
  while not (сверху свободно) do
  begin
    закрасить;
    вверх;
    k := k + 1;
  end;
end.

program N_26;
var
  k: integer;
  a, b, c: real;
begin
  k := 0;
  write(‘A B C>>’);
  readln(a, b, c);
  while a >= c do
  begin
    a := a + a * 0.15 — b;
    k := k + 1;
  end;
  writeln(k, ‘ лет’);
end.

program N_27;
var
  s, c, k: integer;
begin
  k := 0;
  s := 0;
  while s < 324 do
  begin
    write(‘Введи число>>’);
    readln(c);
    s := s + c;
    k := k + 1;
  end;
  writeln(‘k=’, k);
end.

program N_28;
var
  x, k: integer;
begin
  k := 0;
  write(‘Введи число>>’);
  readln(x);
  while x > 0 do
  begin
    x := x div 10;
    k := k + 1;
  end;
  writeln(‘k=’, k);
end.

program N_29;
var
  k: integer;
  s, n: real;
begin
  s := 10000.0;
  n := 2 * s;
  while s < n do
  begin
    s := s + s * 0.05;
    k := k + 1;
  end;
  writeln(‘k=’, k);
end.