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

Вfree pascal'e. нужно записать программу. "ввести три целых числа с клавиатуры. найти их произведение, сумму и среднее арифметическое." p.s простите за столько тем, первый раз сдесь..

👇
Ответ:
TatyanaKras
TatyanaKras
06.02.2021

var a,b,c:integer;
begin
read(a,b,c);
writeln(a*b*c);
writeln(a+b+c);
writeln((a+b+c)/3);
end.

4,8(94 оценок)
Открыть все ответы
Ответ:
Dasha29081
Dasha29081
06.02.2021
В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:

Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
  for i:=1 to 12 do begin
    write('T[',i:2,'] = ');
    readln(T[i]);
  end;
  Tsred:=0;
  for i:=1 to 12 do
    Tsred:=Tsred+T[i];
  Tsred:=Tsred/12;
  Writeln('Среднегодовая температура = ',Tsred:6:2);
  for i:=1 to 12 do begin
    Dt[i]:=T[i]-Tsred;
    writeln('Dt[',i:2,']',Dt[i]:6:2);
  end;
end.

Ну а результаты получите, когда запустите программу.
4,5(60 оценок)
Ответ:
лосимус
лосимус
06.02.2021
Летающий автобус)
1. Мест в эконом-классе 120, а в бизнес-классе 40.
2. 100 процентов прибыли получим, если заполним все места. Билет в эконом-классе стоит в 2 раза меньше чем X. Получаем следующее уравнение:
40*X + 0.5*120*X = 100%, X = 1% от всей прибыли.  Значит один билет в бизнес - классе приносит один процент прибыли. А один билет в эконом-классе приносит 0.5 процента прибыли.
3. Осталось рассчитать прибыль компании учитывая непроданные билеты:
P = 100 - b - 0.5*a  и написать программу:

var a,b:integer;
begin
  repeat
    writeln('Введите количество непроданных билетов (a,b)');
    readln(a,b);
  until (a<=120) and (b<=40)and (a>=0) and (b>=0);
  writeln('Прибыль компании составит ',100-b-0.5*a,'%');
end.

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