Задание 5 Параграф 4.5 ГДЗ Босова 8 класс 2023 (Информатика)
№3
var
n: integer;
a, b, c: real;
begin
n := 0;
write(‘Начальный запас рыбы, годовой план, наименьший запас > > ‘);
readln(a, b, c);
while c < = a do
begin
a := a + a * 0.15 - b;
n := n + 1
end;
writeln(n, ' лет')
end.
№4
var
a, d, n, s: integer;
begin
n := 0; s := 0;
a := 5; d := 4;
while s < = 324 do
begin
s := s + a;
a := a + d;
n := n + 1
end;
writeln(n, ' слагаемых')
end.
№6
var
k: integer;
n: real;
begin
n := 1000; k := 0;
while n < = 2000 do
begin
n := n + 0.05 * n;
k := k + 1
end;
writeln('Через', k, ' лет сумма вклада удвоится')
end.
№7
var
n, x, t: integer;
begin
n := 1; t := 0;
write('Введи х ');
readln(x);
while n < x do
begin
n := n * 2;
t := t + 3
end;
writeln('Через', t, ' минут будет ', x, ' амеб')
end.
Запишем программы на языке Паскаль с использованием цикла while.
№3
var
n: integer;
a, b, c: real;
begin
n := 0;
write(‘Начальный запас рыбы, годовой план, наименьший запас >> ‘);
readln(a, b, c);
while c <= a do
begin
a := a + a * 0.15 — b;
n := n + 1
end;
writeln(n, ‘ лет’)
end.№4
var
a, d, n, s: integer;
begin
n := 0; s := 0;
a := 5; d := 4;
while s <= 324 do
begin
s := s + a;
a := a + d;
n := n + 1
end;
writeln(n, ‘ слагаемых’)
end.№6
var
k: integer;
n: real;
begin
n := 1000; k := 0;
while n <= 2000 do
begin
n := n + 0.05 * n;
k := k + 1
end;
writeln(‘Через’, k, ‘ лет сумма вклада удвоится’)
end.№7
var
n, x, t: integer;
begin
n := 1; t := 0;
write(‘Введи х ‘);
readln(x);
while n < x do
begin
n := n * 2;
t := t + 3
end;
writeln(‘Через’, t, ‘ минут будет ‘, x, ‘ амеб’)
end.
