Красный, синий и желтый называются основными цветами, потому что их нельзя получить путем смешения других цветов. При смешивании двух основных цветов получается вторичный цвет: если смешать красный и синий, то получится фиолетовый;

если смешать красный и желтый, то получится оранжевый;

если смешать синий и желтый, то получится зеленый.

Напишите программу, которая считывает названия двух основных цветов для смешивания. Если пользователь вводит что-нибудь помимо названий «красный», «синий» или «желтый», то программа должна вывести сообщение об ошибке. В противном случае программа должна вывести название вторичного цвета, который получится в результате.

Формат входных данных

На вход программе подаются две строки, каждая на отдельной строке.

Формат выходных данных

Программа должна вывести полученный цвет смешения либо сообщение «ошибка цвета», если введён был не цвет.

Примечание 1. Если смешать красный и красный, то получится красный и т.д.

👇

Увидеть ответ

Ответ:

karipovilna

18.04.2020

x = input()

y = input()

if x == y and (x == 'синий' or x == 'желтый' or x == 'красный') and (y == 'красный' or y == 'синий' or y == 'желтый'):

print(x)

elif (x == 'красный' or y == 'красный') and (x == 'синий' or y == 'синий'):

print('фиолетовый')

elif (x == 'красный' or y == 'красный') and (x == 'желтый' or y == 'желтый'):

print('оранжевый')

elif (x == 'синий' or y == 'синий') and (x == 'желтый' or y == 'желтый'):

print('зеленый')

elif x != 'синий' and x != 'желтый' and x != 'красный' or y != 'красный' and y != 'синий' and y != 'желтый':

print('ошибка цвета')

я это уже решал на stepik

4,4(33 оценок)

Открыть все ответы

Ответ:

egorageev07

18.04.2020

Uses Crt;
const n=5; m=7;
type Mas = array [1..n, 1..m] of integer;
var i, j, j1, j2: integer;
Sumj1, Sumj2: real;
A: Mas;
begin
ClrScr;
Randomize;
SumJ1:=0; SumJ2:=0;
for i:=1 to n do
for j:=1 to m do
A[i,j]:=random (10);
WriteLn (' Massiv A: ');
for i:=1 to n do
begin
for j:=1 to m do
Write (A[i,j]:4);
WriteLn;
end; WriteLn;
repeat
Write (' Stolbez #1 = '); ReadLn(j1);
until (j1>=1) and (j1<=m);
repeat
Write (' Stolbez #2 = '); ReadLn(j2);
until (j2>=1) and (j2<=m) and (j1<>j2);
for i:= 1 to n do
SumJ1 := SumJ1+A[i,j1];
for i:= 1 to n do
SumJ2:=SumJ2+A[i,j2];
SumJ1:=SumJ1/n; SumJ2:=SumJ2/n;
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2);
ReadLn;
end.
Паскаль.составить программу, вычисляющую среднее значение по двум столбцам матрицы. номера столбцов

Паскаль.составить программу, вычисляющую среднее значение по двум столбцам матрицы. номера столбцов

4,5(72 оценок)

Ответ:

lilyavenkova

18.04.2020

//PascalABC.Net 3.0, сборка 1064
type
IntArray = array of integer;

var
rows, cols: integer;
M: array of IntArray;

begin
Write('Количество строк и столбцов матрицы: '); Read(rows, cols);
var Avg: array of double := new double[cols];
M := new IntArray[rows];
SetLength(Avg, cols);
for var i := 0 to rows - 1 do
begin
    M[i] := ArrRandom(cols, -25, 25);
    M[i].Println(#9)
end;
for var j := 0 to cols - 1 do
    Avg[j] := Range(0, rows - 1).Select(x -> M[x, j]).Average;
Writeln('Наименьшее среднее по столбцам равно ', Avg.Min)
end.

Тестовое решение:
Количество строк и столбцов матрицы: 5 8
-22    -8    12    7    3    -18    8    22
2    -16    17    -13    -10    0    -19    2
20    -21    -6    13    2    -20    25    24
-7    -3    -2    -10    -2    8    18    23
4    -21    -8    8    23    -12    -13    -5
Наименьшее среднее по столбцам равно -13.8

4,6(18 оценок)

Это интересно:

Хобби-и-рукоделие

16.01.2022

Угловые закладки своими руками: простой и креативный способ сохранить страницу...

Финансы-и-бизнес

18.09.2022

Как вычислить период оборота запасов: практическое руководство...

19.11.2022

Как избавиться от одержимости человеком: советы от психологов и опытных людей...

Образование-и-коммуникации

04.01.2021