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

4 года назад

Даны два числа x и y. Найти сумму и среднее арифметическое двух чисел Qbasic

Знания

Информатика

1 ответ:

Валерия09774 года назад

0 0

<span>CLS
INPUT "Vvedi x: ", x
INPUT "Vvedi y: ", y
s = x + y
a = s/2
PRINT "Sr. arifm: ", a
</span><span>PRINT "Summa: ", s
</span>

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

Дан массив из 12 целых чисел проверить является ли он упорядоченным по возрастанию. Написать программу на С++

bigboy [197]

Ответ:

Исходник ниже. В задаче говорится, что чисел ровно 12, поэтому сделал статический массив на константное количество элементов. Если предполагается, что программа должна работать и на других размерах массива, то можно сделать динамический массив или использовать контейнер vector.

Объяснение:

#include <iostream>

int main(){

const int n = 12;

int a[n];

for(int i = 0; i < n; i++){

std::cin >> a[i];

}

bool ascending= true;

for(int i = 1; i < n; i++){

if (a[i-1] > a[i]){

ascending = false;

break;

}

if (ascending){

std::cout << "Yes" << std::endl;

}

else{

std::cout << "No" << std::endl;

}

return 0;

}

0 0

1 год назад

По первым буквам написанных слов прочти новое слово кот.рыба.окунь.лес.игла.коза.

Helgen [143]

А)пятачок
б)?сова по идеи
в)сам справишся я твоего имени не знаю
г)кролик

0 0

4 года назад

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

Все растения на букву А

miraclezi

Агава арника азалия абрикос астра

0 0

4 года назад

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

Решите плиз .... срочно

DeadFox [4.1K]

Решение - в прилагаемом файле.

0 0

4 года назад

Вычислить площадь круга и длины окружности при известном радиусе в visual basic for application. С использованием inputBox и Msg

Ирина455 [68]

Sub aaa()
    r = CDbl(InputBox("Введите радиус"))
    Pi = 4 * Atn(1)
    s = Pi * r ^ 2
    c = 2 * Pi * r
    MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub

0 0

4 года назад