Здравствуйте. Нам дана программа 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 баллов за помощь!!!
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 баллов за помощь!!!
More Questions From This User See All
Answers & Comments
Verified answer
Vari, 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
Красное