Вы посетили магазин и купили 10 видов товара. в таблицу t[1: 10] вы записали ко-личество купленного товара каждого вида. в таблицу c[1: 10] записали цены единиц каждого вида товара соответственно. составьте на паскалепрограмму вычисления общей стоимости всех покупок.

var t : array [1..10] of integer; c : array [1..10] of real; {если цена не дробная то можно c : array [1..10] of integer; и a: integer; } i : integer; a : real; begin a: =0; for i : = 1 to 10 do begin readln(t); readln(c); end; for i : = 1 to 10 do a : = t*c + a; writeln; writeln(a); en

Var   n, m, d: integer; begin   write('введите трехзначное число: ');   readln(n);   if (n < 100) or (n > 999) then       writeln('у вас странное представление о трехзначных числах! ')   else begin       d : = n div 100; {старшая}       n : = n mod 100;       m : = n div 10; {средняя}       n : = n mod 10; {младшая}       if (m > d) and (n > m) then           writeln('цифры следуют в возрастающей последовательности')       else if (m < d) and (n < m) then           writeln('цифры следуют в убывающей последовательности')       else writeln('цифры не образуют монотонную последовательность')   end end. тестовое решение: введите трехзначное число: 159 цифры следуют в возрастающей последовательности

Var   i, a, b, n, n2, j: longint;   s: string;   flag: boolean; begin   write('введите через пробел границы диапазона: ');   readln(a, b);   if b < a then begin n : = a; a : = b; b : = n end;   if a < 11 then a : = 11;   for i : = a to b do   begin       str(i, s);       n : = length(s); n2 : = n div 2; flag : = true; j : = 1;       repeat           flag : = (s[j] = s[n - j + 1]);           j : = j + 1       until (not flag) or (j > n2);       if flag then write(i, ' ')   end; end. тестовое решение: введите через пробел границы диапазона: 800 1500 808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441