В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
мядель
мядель
24.01.2023 19:27 •  Информатика

Запишите подряд без пробелов и разделителей все числа, которые будут напечатаны на экране при выполнении вызова F(6). Числа должны быть записаны в том же порядке, в котором они выводятся на экран.

procedure F(n: integer); forward;
procedure G(n: integer); forward;
procedure F(n: integer);
begin
n := n - 1;
if n > 2 then
begin
write(n);
F(n - 1);
G(n - 2);
end
else
write(n+2);
end;
procedure G(n: integer);
begin
write(n);
if n > 2 then
begin
n := n - 1;
G(n - 1);
F(n - 2);
end
else
write(n+1);
end;

Показать ответ
Ответ:
ПолинаАпгрейт
ПолинаАпгрейт
20.01.2021 11:05
var
  a, b, c, d, i, n, p: integer;
  x, y: real;

begin
  writeln('Задача 1, введите n =');
  read(n);
  for i := 1 to n do
    if i mod 2 = 0 then
      x := x + 1 / (2 * i + 1)
    else x := x - 1 / (2 * i + 1);
  writeln('Sum = ', x);
 
  writeln('Задача 2, введите a, b, c, d =');
  read(a, b, c, d);
  for i := a to b do
    if i mod c = d then writeln(i);
 
  writeln('Задача 3, введите n и n чисел =');
  read(n);
  a := 0; b := 0; c := 0;
  for i := 1 to n do
  begin
    read(p);
    if p = 0 then a := a + 1
    else if p < 0 then b := b + 1
    else if p > 0 then c := c + 1;
  end;
  writeln(a, ' ', b, ' ', c);
 
  writeln('Задача 5, введите x, p ,y =');
  read(x, p, y);
  n := 0;
  repeat
    x := round(x * (100 + p)) / 100;
    n := n + 1;
  until x >= y;
  writeln(n, ' лет');
 
  writeln('Задача 6, введите A, B =');
  read(a, b);
  repeat
    if (a mod 2 = 0) and (a div 2 >= b) then begin
      writeln(a, ' : 2 = ', a div 2);
      a := a div 2
    end
    else begin
      writeln(a, ' - 1 = ', a - 1);
      a := a - 1;
    end;
  until a <= b;
end.
0,0(0 оценок)
Ответ:
voronkovid
voronkovid
18.01.2022 13:51
Животные потребляют готовые вещества (гетеротрофы), растения производят их сами (автотрофы)... есть различия в строении клетки...

Животные отличаются от растений развитием при для схватывания пищи.

Наиболее существенное различие между животными и растениями в питания. Зеленые растения получают из внешней среды одни лишь неорганические вещества: воду, минеральные соли из почвы и углекислый газ из воздуха. Из этих неорганических веществ в клетках зеленого растения создаются органические вещества. Такой питания называют растительным или автотрофным.

Ни одно животное не может жить за счет неорганических веществ и создавать из них в своем теле органические вещества. В отличие от растений животным необходимы для питания сложные органические вещества: белки, жиры и углеводы, которые они получают, поедая растения или других животных. Такой тип питания называется животным или гетеротрофным.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота