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

Задача

№14
var
x, y, p, i: integer;
begin
write(‘x,y > > ‘);
readln(x, y);
p := 0;
for i := 1 to y do
p := p + x;
writeln(x, ‘ * ‘, y, ‘ =’, p)
end.
№15
var
i: integer;
n, d: real;
begin
n := 40000; d := 0.05;
for i := 1 to 3 do
n := n + n * d;
writeln(‘Численность населения через 3 года > ‘, n)
end
№16
var
n,i: integer;
begin
n := 1;
for i := 1 to 10 do
n := n*2;
writeln(‘Количество бактерий через 10 минут > ‘, n)
end.

Подробный ответ

Выполнение

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

№14

var
  x, y, p, i: integer;
begin
  write(‘x,y > ‘);
  readln(x, y);
  p := 0;
  for i := 1 to y do
    p := p + x;
  writeln(x, ‘ * ‘, y, ‘ = ‘, p);
end.

№15

var
  i: integer;
  n, d: real;
begin
  n := 40000;
  d := 0.05;
  for i := 1 to 3 do
    n := n + n * d;
  writeln(‘Численность населения через 3 года > ‘, n);
end.

№16