М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Что выведет программа при вызове F(9)? Пробелы не учитываются. procedure F (n: integer);
begin
if n > 1 then
begin
F(n div 4);
F(n - 4);
write (n)
end;
end

👇
Ответ:
Undina705
Undina705
13.09.2021

ответ: -2

Объяснение: при n = 9; 9 / 4 = 2 (без остатка); 2 - 4 = -2

4,5(94 оценок)
Открыть все ответы
Ответ:
dima03102003
dima03102003
13.09.2021

0.9935203

program znanija;

var

 m, x, y, z: single;

begin

 m := 3.96;

 x := 0.03;

 y := 5.92;

 z := tan(sqr(m)) / (3 * x * power(y, 3)) + (1 - x / y);

 write(z);

end.

Объяснение:

Функция tan() возвращает тангенс числа, указанного в скобках.

Функция sqr() возводит число, указанное в скобках, в квадрат.

Функция power(x, y) возводит число x в степень y.

program znanija;  // Название программы

var  // Раздел для описания переменных

 m, x, y, z: single;  // Объявление вещественных переменных

begin  // Начало программы

 m := 3.96;  // m = 3.96

 x := 0.03;  // x = 0.03

 y := 5.92;   // y = 5.92

 z := tan(sqr(m)) / (3 * x * power(y, 3)) + (1 - x / y);  // Сама формула

 write(z);  // Выводим ответ

end. // Конец программы

4,5(45 оценок)
Ответ:
00099000
00099000
13.09.2021
1. Задача решается с стека (алгоритм Дейкстры для обработки обратной польской записи). Предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям задания.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var w:=ReadlnString.ToWords;
  var St:=new Stack <integer>;
  var r:=0;
  foreach var t in w do
    if t[1].IsDigit then St.Push(t.ToInteger)
    else begin
      var a:=St.Pop;
      var b:=St.Pop;
      case t[1] of
      '+':St.Push(a+b);
      '-':St.Push(b-a);
      '*':St.Push(a*b)
      end;
    end;
  Writeln(St.Pop) 
end.

Контрольный пример
8 9 + 1 7 - *
-102

2. Задача крайне просто решается при регулярного выражения с рекурсией. Фактически вводить количество шаров не нужно, поэтому после ввода оно отбрасывается.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadlnString.ToWords.Skip(1).JoinIntoString('').
      MatchValue('(.)\1{2,}').Length);
end.

Контрольный пример
5 2 3 3 3 1
3
4,4(14 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ