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