Нам дана программа pascal abc net: var i, n: integer; - вопрос №8742911 от Adama03mama 20.07.2020 09:37

Question

Информатика: Нам дана программа 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, то результат был словом: красное

Adama03mama · Answer

Vari, n: integer;sum, x: real;beginn:= 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-е число = 22-е число = 43-е число = 94-е число = 55-е число = 16-е число = 67-е число = 8Выпадет 5Красное...