Записать на QBasic
1. Дана сторона квадрата. Найти ее периметр.
2. Дан радиус окружности. Найти ее диаметр, длину окружности и
площадь круга.
3. Дана длина ребра куба. Найти объем куба и площадь его боковой
поверхности.
4. Даны два целых числа. Найти их сумму, разность, произведение, а так
же частное от деления первого числа на второе.
5. Известны объем и масса тела. Определить плотность материала этого
тела.
6. Даны катеты прямоугольного треугольника. Найти его периметр.
7. Даны длины сторон прямоугольника. Найти его периметр и длину
диагонали.
8. Даны длины сторон прямоугольного параллелепипеда, Найти его
объем и площадь боковой поверхности.
9. Даны два числа. Найти среднее арифметическое и среднее
геометрическое их модулей.
10. Известны координаты двух точек на плоскости. Составить программу
вычисления расстояния между ними.

#include <iostream>
#include <string>

using namespace std;

#define IN 1 //внутри слова
#define OUT 0 //вне слова

int main()
{
    string s;
    getline(cin, s);
    int state = OUT; //позиция
    s = ' ' + s + ' ';
    int k = 0; //позиция начала слова
    for (int i = 0; i < s.size(); i++)
        if (s[i] == ' ') {
            if (state == IN && s[k] == s[i - 1])
                cout << s.substr(k, i - k + 1) << endl;
            state = OUT;
        } else if (state == OUT) {
            k = i;
            state = IN;
        }
    return 0;
}

Сидели модераторы модерировали, причины для банов в текстовый файл записывали и жили хорошо.

Модератор с ником m0nclous любил красоту в текстовых файлах, поэтому он каждую причину хорошо форматировал, используя текстовый процессор "LibreOffice Writer". Некоторые спрашивали его, почему же не он не использует "Microsoft office Word"? На это он отвечал, то что он использует на своём компьютере операционную систему "Arch Linux", а на линукс нету microsoft office'а, но есть аналог - libreoffice.

Вот однажды причины для банов изменили и он сел за редактирование своего текстового файла с ними. Писал, писал и тут ему в голову пришла идея: "почему я должен сидеть и модерировать? Я на большее!".
После чего он он очистил файл, изменил его название на "hack-pentagon", изменил расширение на ".js" и начал редактировать код, используя текстовый редактор "sublime text 3". Просидел он 3 дня, 3 ночи, очень устал, но закончил свой проэкт. Он запустил свою программу и начался взлом Пентагона.

Но тут прилетает вертолёт, SWAT влетает в окна, скручивает его и садит в тюрьму.

Теперь m0nclous сидит за решеткой и придумывает разные рассказы, после чего записывает их в файл, используя текстовый процессор "Microsoft Word", потом распечатывает их и продаёт. Таким образом он гасит свой миллиардный штраф.