Определите полный набор данных для решения следующих обработки информации: 1) вычисления стоимости покупок в магазине. 2) вычисления суммы сдачи от данных вами продавцу денег. 3) определения времени показа по телевизору интересующего вас фильма. 4) вычисления площади треугольника. 5) определения времени падения кирпича с крыши дома. 6) определения месячной платы за расход электроэнергии. 7) перевода текста на итальянский язык. 8) перевода итальянского текста на язык.

1) количество и цена товаров кажого типа

2) цена покупки, данное количество денег

3) время начала и конца фильма

4) высота и основание или три стороны

5) масса кирпича, высота дома

6) потребленная энергия (её количество), цена за 1 у. е.

7) перевод каждого слова на итальянский, а так же правила грамматики.

8) перевод каждого итальянского слова на , а так же правила грамматики.

Program  sergo;       uses  drawman;       begin             task('a1');           topoint(2,3);             pendown;           topoint(3,5);             penup;           topoint(0,0);       end. алг квадрат1  нач . сместиться в точку(2,1) . опустить перо . сместиться в точку(2,4) . сместиться в точку(5,4) . сместиться в точку(5,1) . сместиться в точку(2,1) . поднять перо . сместиться в точку(0,0) кон использовать чертежник алг квадрат2  нач . сместиться на вектор(2,1) . опустить перо . сместиться на вектор(0,3) . сместиться на вектор(3,0) . сместиться на вектор(0,-3) . сместиться на вектор(-3,0) . поднять перо . сместиться на вектор(-2,-1) кон

1) var k,i,n: integer; begin write('k = '); readln(k); n: =0; for i: =2 to round(sqrt(k)) do   if k mod i= 0 then n: =n+1; if n=0 then writeln(k,' - простое число') else writeln(k,' - составное число'); end. пример: k = 2323 - простое число2)var a,b,i: integer; function prost(n: integer): boolean; var j,m: integer; beginm: =0; for j: =2 to trunc(sqrt(n)) do  if n mod j = 0 then inc(m); prost: =m=0; end; beginreadln(a,b); writeln('простые числа: '); for i: =a to b do  if prost(i) then write(i,' '); end.пример: 10 30простые числа: 11 13 17 19 23 293)var k,i,n: integer; function prost(n: integer): boolean; var j,m: integer; beginm: =0; for j: =2 to trunc(sqrt(n)) do  if n mod j = 0 then inc(m); prost: =m=0; end; beginreadln(k); i: =2; n: =0; writeln('простые числа: '); while n< k do  begin  if prost(i) then begin write(i,' '); n: =n+1; end;   i: =i+1;   end; end.пример: 10простые числа: 2 3 5 7 11 13 17 19 23 29