Нам дана программа pascal abc net: var i, n: integer; sum, x: real; begin n : = 7; sum : = 0.0; for i : = 1 to n do if begin write(i, '-е число = '); readln(x); sum : = sum + x end; writeln('выпадет ', round(sum/n)); readln(); end. нужно сделать так, чтоб окончательный результат программы заканчивался не числом, а словом. суть изначальной программы выдать округлённое среднее арифметическое значение n чисел. а надо, если это значение равно одному из чисел 1,5,7,9,11,13,15, то результат был словом: "красное", если же числовое значение равно одному из чисел 2,4,6,8,10,12,14,16, то результат был бы "чёрное", а если значение равно числу 3, то результат "зелёное". 100 за !
Kazybek0611
3
19.09.2019 05:20
0
Другие вопросы по теме Информатика
sabserj
26.04.2021 09:15
АринаКузьмичева
23.06.2020 07:06
anlevytska
23.06.2020 07:52
danifoxyforevep08iko
23.06.2020 06:56
sofalezina975
23.06.2020 02:54
ЮлияСтоянова
23.06.2020 05:58
EnotGermany
24.06.2020 01:24
MoonRiad
23.06.2020 17:22
ЛебедЪ
23.06.2020 05:03
Популярные вопросы
- Учебники составляю 3/7 библиотечного фонда а художественная - 2/5.каких книг...
1 - При нагревании метанола с концентрированной серной кислотой образуется 1)...
2 - При напряжении 220 в сила тока в спирали лампы накаливания 500 ма. определите...
2 - Дмитрий на свой день рождения роздал 15 конфет своим друзьям,по 5 конфет каждому.сколько...
1 - Объем аквариума равен 120000 см куб.найди высоту аквариума , если его длина...
3 - Маша и даша увидели друг друга, когда расстояние между ними было 100 м. они...
3 - Всентябре акция стоила 250 р., а в октябре её цена понизилась до 200 р. на...
2 - Где найти сообщение на тему: прикреплённые хордовые животные? нигде не нашла...
3 - Каким будут казаться красные буквы, если их рассмотреть через синее стекло?...
2 - Масштаб карты 1: 200000. каким будет расстояниена карте, если на местности...
3
i, n: integer;
sum, x: real;
begin
n:= 7;
sum:= 0.0;
for i:= 1 to n do
begin
write(i, '-е число = ');readln(x);
sum := sum + x
end;
writeln('Выпадет ', round(sum/n));
case round(sum/n) of
1,5,7,9,11,13,15: writeln('Красное');
2,4,6,8,10,12,14,16: writeln('Чёрное');
3: writeln('Зелёное');
else writeln('Неизвестный цвет');
end;
readln;
end.
Пример:
1-е число = 2
2-е число = 4
3-е число = 9
4-е число = 5
5-е число = 1
6-е число = 6
7-е число = 8
Выпадет 5
Красное