Даны 2 числа меньшее из них заменить полусуммой,а большее число заменить их удвоенным произведением

Знания

Информатика

1 ответ:

uchitelnitsa2 года назад

0 0

Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.

Читайте также

Дано натуральное число Х. Вычислить Y = 1 - 2X + 3X2(в квадрате) - 4X3(в третьей степени). Разрешается использовать не более 8 а

Денис колме [40]

Var
    step: array[1..8] of real;
    i, x: integer;

begin
    readln(x);

    step[1] := 1 - x;
    step[2] := step[1] * step[1];
    step[3] := step[2] * step[1];
    step[4] := 3 * x;
    step[5] := step[4] * x;
    step[6] := 1 - step[5];
    step[7] := step[6] * x;
    step[8] := step[3] + step[7];

    for i := 1 to 8 do
        write(step[i], ' ');
end.

0 0

4 года назад

Укажите какие из записей являются именами myname U 2 Z' N2 K1L2

ИИИИгорь [14]

В именах не могут быть пробелы и '

myname
N2
K1L2

0 0

3 года назад

Пожалуйста помогите!!!!!! На C++ 1)Написать, программу, которая вычисляет прибыль фирмы за 6 месяцев. Пользователь вводит прибыл

Иван Ивап

// 1
double sum = 0; for(int i = 0; i < 6; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;

// 2
for(int i = (sizeof(arr)/sizeof(*arr)) - 1; i >= 0; i--){ std::cout << arr[i]; }

// 3
double sum = 0; for(int i = 0; i < 5; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;

0 0

4 года назад

Расставить порядок действий

fox586 [7]

--------------------

0 0

4 года назад

Постройте таблицу Умножения числа N на множители от 1 до 10. Сделайте так, чтобы таблицу можно было перестроить на новое значени

Георгий79

Вот таблица умножения на число N

0 0

4 года назад