Тема: Понятие алгоритма. Построение алгоритма, блок-схемы Домашнее задание:

Задание 1: Написать в словеснойформе и нарисовать блок-схему алгоритма подсчета общейстоимости покупки. Покупка состоитиз 5 товаров. Цены заданы

Задание 2: Написать в словеснойформе и нарисовать блок-схему алгоритма посещения библиотеки.

Задание 3:Вывести в консоль краткую справку о себе. Разбить текс на 3 строки. Все строки программы сопроводить комментариями.

Вариант 11 Дядя Федор, кот Матроскин и пес Шарик летом жили в Простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон Печкин. Каждое письмо весило в среднем 100 г, каждая посылка - 5 кг, каждая телеграмма - 50 г, каждая бандероль - 500 г. Дядя Федор получил 10 писем, 2 посылки, 10 телеграмм и 1 бандероль. Кот Матроскин получил 4 письма, 1 посылку, 2 телеграммы и 1 бандероль. Пес Шарик не получил ни одного письма, ни одной телеграммы, зато получил 4 посылки и 2 бандероли.Построить электронную таблицу, из которой будет видно: сколько и какой почты получил каждый из трех жителей Про-стоквашино; сколько килограммов почты получил каждый из трех простоквашинпев; сколько весила вся доставленная Печкиным почта одного вида; какой общий груз пришлось перенести почтальону Печкину.  смотри хls

Больше мороки чем сложности...

Type int=100..999;
Var x:int;
Begin
 readln(x);
 case (x div 100) of
   1:write('Сто ');
   2:write('Двести ');
   3:write('Триста ');
   4:write('Четыреста ');
   5:write('Пятьсот ');
   6:write('Шестьсот ');
   7:write('Семьсот ');
   8:write('Восемьсот ');
   9:write('Девятьсот ');
 end;
 if ((x mod 100) div 10)=1 then
   case (x mod 10) of
     0:write('десять ');
     1:write('одиннадцать ');
     2:write('двенадцать ');
     3:write('тринадцать ');
     4:write('четырнадцать ');
     5:write('пятнадцать ');
     6:write('шестнадцать ');
     7:write('семнадцать ');
     8:write('восемнадцать ');   
     9:write('девятнадцать ');
   end
  else
   begin
    case ((x mod 100) div 10) of
      2:write('двадцать ');
      3:write('тридцать ');
      4:write('сорок ');
      5:write('пятьдесят ');
      6:write('шестьдесят ');
      7:write('семьдесят ');
      8:write('восемьдесят ');
      9:write('девяносто ');
    end;
    case (x mod 10) of
      1:write('один');
      2:write('два');
      3:write('три');
      4:write('четыре');
      5:write('пять');
      6:write('шесть');
      7:write('семь');
      8:write('восемь');
      9:write('девять');
    end;
   end;
End.