Задать вопрос!

Задать вопрос!

Все категории

3 года назад

11

Известно стоимость минуты разговора, количество проговорённых минут, номер дня недели и скидка по выходным.

Написать программу нахождения стоимости разговора в зависимости от дня недели.

Информатика

1 ответ:

Ирфика3 года назад

0 0

Написано на языке Pascal

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

Из скольки частей состоит адрес электронной почты

ssvoloch

Нет две! Разделенные знаком собаки. Это имя пользователя и домен на котором расположен почтовый сервер. Домен может быть из нескольких слов, разделенных точками.

0 0

4 года назад

Одномерный массив Х(10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элемен

светлана35

#include <iostream>

using namespace std;

int main()
{
    int X[10];
    long int sum = 0, prod = 1;
    int k = 0;
    for (int i = 0; i < 10; i++)
    {
        cout << "X[" << i << "] = ";
        cin >> X[i];
        if (X[i] < 0) sum += X[i];
        if (X[i] != 0) prod *= X[i];
        if (X[i] > 0) k++;
    }
    cout << "Сумма отрицательных = " << sum << endl;
    cout << "Количество положительных = " << k << endl;
    cout << "Произведение ненулевых = " << prod << endl;
    //system("pause");
    return 0;
}

0 0

4 года назад

Написать код в Pascal. Задача: Сформулировать и вывести на экран в виде таблицы массив A[1..4,1..6], заполнив его целыми случайн

Нафаня СК [25]

program mas;

var A:array[1..4,1..6] of integer;

i, j: integer;

summ: integer;

id: integer;

begin

randomize;

for i := 1 to 4 do

begin

for j := 1 to 6 do

begin

A[i, j] := random(30) + 45;

write(A[i,j]);

write(' ');

end;

writeln('');

end;

for j := 1 to 6 do

begin

for i := 1 to 4 do

begin

summ := summ +A[i, j];

end;

writeln(summ / 4);

summ := 0;

end;

readln;

end.

0 0

4 года назад

Прочитать ещё 2 ответа

ДАЮ 20 БАЛЛОВ!!! Коля стёр все цифры в примере на доске и написал вместо них буквы. Вместо одинаковых цифр он написал одинаковы

greatProfit

<u>12195</u>×7=<u>85365</u> Вот так вроде

0 0

4 года назад

Сколько букв и какого алфавита содержит зашифрованный десятичными кодами текст 128 32 139 32 148 32 128 32 130 32 136 32 146 Как

Наська666

<span>Текст содержит 7 букв Русского алфавита объемом 13 байт..!!!</span>

0 0

4 года назад