hamov1408p06m04
27.02.2022 00:44

Сделать блок-схему для кода: var
m, n, i: integer;
sum: real;
function fact(x: integer): real;
begin
if x = 0 then fact := 1
else fact := fact(x - 1) * x;
end;
begin
writeln('Введите границы m и n: ');
readln(m, n);
sum := 0;
for i := m to n do if not odd(i) then
sum := sum + fact(i);
writeln('Сумма факториалов четных чисел от m до n = ', sum);
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Тян255
21.02.2023 20:47

Программа-термин, в переводе означающий «предписание», то есть заданную последовательность действий.

Дизайн-деятельность по проектированию эстетических свойств промышленных изделий.

Проект-временно́е предприятие, направленное на создание уникального продукта, услуги или результата.

Меню-перечень блюд и напитков, подаваемых в кафе, ресторане или баре.

Качество – то, что характеризует природу вещи, ее принадлежность к определенному классу предметов.

Диалог- литературная или театральная форма устного или письменного обмена высказываниями (репликами, вопросами и ответами) между двумя и более людьми, также бывает письменный.

Интерфейс-граница между двумя функциональными объектами.

Звук-физическое явление, представляющее собой распространение в виде упругих волн механических колебаний в твёрдой, жидкой или газообразной среде.

0,0(0 оценок)
Ответ:
foma89
03.12.2021 02:09

На строке 9 "if x>=-7.5 and x<2 then y:=(a*sqrt(abs(x+6))); " в том месте, где выделено жирным, компилятор думает, что необходимо произвести побитовое умножение числа с плавающей точкой типа real -7.5 и целого числа x. Т.к. побитовое умножение применимо только к целым числам, компилятор пытается преобразовать -7.5 к целому числу, т.е. к integer, и у него это не получается, о чем он Вам и говорит.

Чтобы он не думал, что Вы собираетесь производить побитовое умножение (ведь Вы хотите произвести логическую операцию между результатами двух сравнений), нужно занести в скобки выражения x>=-7.5 и x<2, чтобы получилась такая строка: "if (x>=-7.5) and (x<2) then y:=(a*sqrt(abs(x+6))); "

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