ОЧЕНЬ Пример 1 Что будет напечатано в результате работы фрагмента программы?
8:=1; x:=4718 ; k:= x mod 10;
while x div 10 > 0 do begin
x := x div 10;
:= s + 1
end;
if s = 2 then
x := x + k
else
x := x*10 + k
writeln(x);
ответ: :​

При условии что каждый больной заражает от 1 до 5 человек каждый день, и что больные упорно ходят в школу

const
    min_posible = 1;
    max_posible = 5;
var all_students, ill, new_ill, days, i: integer;
Begin
    Randomize;
    Writeln('Кол-во учеников школы =>');
    read(all_students);
    ill := 1;
    repeat
        days := days + 1;
        new_ill := 0;
        for i := 1 to ill do
            new_ill := new_ill + Random(min_posible, max_posible);
        ill := ill + new_ill;
        Writeln('День ',days:3,': Заразилось ',new_ill:5,' Больных ',ill:5);
    until ill >= all_students;

    Writeln(days);
End.

Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения Рихард Маттезих (нем. Richard Mattesich), опубликовав в 1961 г. исследование под названием «Budgeting Models and System Simulation»[3]. Концепцию дополнили в 1970 г. Пардо (англ. Rene Pardo) и Ландау (англ. Remy Landau), подавшие заявку на соответствующий патент (U.S. Patent 4 398 249). Патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения.

Общепризнанным родоначальником электронных таблиц как отдельного класса ПО является Дэн Бриклин, который совместно с Бобом Фрэнкстоном разработал программу VisiCalc в 1979 г. Эта электронная таблица для компьютера Apple II стала очень популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса.

Впоследствии на рынке появились многочисленные продукты этого класса — SuperCalc, Microsoft MultiPlan, Quattro Pro, Lotus 1-2-3, Microsoft Excel, OpenOffice.org Calc, таблицы AppleWorks и gnumeric, минималистический Spread32.