¦REM Прибыль фирмы
¦INPUT "Сколько строк в этой таблице"; n
¦DIM A$(n), B(n), C(n), d(n), E(n), F(n)
¦REM Ввод известных данных таблицы
¦A$(1) = "1990":
¦B(1) = 155.7:
¦C(1) = 276.1: A$(2) = "1991":
¦B(2) = 255.2: C(2) = 284.5
¦REM Ввод неизвесных данных
¦FOR j = 1 TO n
¦INPUT A$(j)
¦INPUT B(j)
¦INPUT C(j)
¦NEXT j
¦FOR j = 1 TO n
¦s2 = s2 + B(j)
¦s3 = s3 + C(j)
¦NEXT j
¦FOR j = 1 TO n
¦E(j) = C(j) - B(j)
¦s5 = s5 + E(j)
¦NEXT j
¦FOR j = 1 TO n
¦F(j) = E(j) / s5 * 100
¦NEXT j
¦FOR j = 1 TO n
¦d(j) = C(j) / s2 * 100
¦NEXT j
¦FOR j = 1 TO n
¦s5 = s5 + E(j)
¦NEXT j
¦sr2 = s2 / n
¦sr3 = s3 / n
¦sr5 = s5 / n
¦CLS
¦REM Вывод таблицы на экран
¦PRINT TAB(55); "Таблица 62"
¦PRINT "Прибыль фирмы в течении 8 лет"
¦PRINT STRING$(60, "=")
¦CLS
¦REM Вывод таблицы на экран
¦PRINT TAB(55); "Таблица 62"
¦PRINT "Прибль фирмы в течении 8 лет"
¦PRINT STRING$(60, "=")
¦CLS
¦REM Вывод таблицы на экран
¦PRINT TAB(55); "Таблица 62"
¦PRINT "Прибль фирмы в течении 8 лет"
¦PRINT STRING$(60, "=")
¦REM Шапка таблицы
¦PRINT "Годы"; TAB(10); "Затраты"; TAB(30); "Выручка";
¦PRINT TAB(40); "Прибль";
¦PRINT TAB(10); "тыс. $"; TAB(20); "Тыс. $"; TAB(30); "В % к 1990 году";
¦PRINT TAB(40); "Тыс. $"; TAB(50); "%";
¦PRINT STRING$(60, "=")
¦PRINT TAB(4); "A"; TAB(14); "B"; TAB(24); "C"; TAB(34); "D";
¦PRINT TAB(44); "E"; TAB(54); "F";
¦PRINT STRING$(60, "=")
¦REM Вывод данных в таблицу, кроме итогов и в среднем
¦FOR j = 1 TO n
¦PRINT A$(j); TAB(10); B(j); TAB(20); C(j); TAB(30); d(j);
¦PRINT TAB(40); E(j); TAB(50); F(j)
¦NEXT j
¦PRINT STRING$(60, "=")
¦REM Вывод итоговой строки
¦PRINT "Итого:"; TAB(10); s2; TAB(20); s3;
¦PRINT TAB(40); s5; TAB(50); "100.0"
¦PRINT "В среднем"; TAB(10); sr2; TAB(20); sr3;
¦PRINT TAB(30); "-"; TAB(40); sr5;
¦PRINT STRING$(60, "=")
¦END

А че сдесь непонятного. Если вы скачаете прикрепленный файл, то все поймете и возможно поможете мне. Это только 1 задача, а всего их 6 и еще теория. И это только допуск к экзамену.

А, простите, информатику сдаю, Qbasic.