Фруктовый магазин продает яблоки по афруктовый магазин продает яблоки по а руб. за кг., груши по в руб. за кг., апельсины по с руб. за кг. в первые два дня недели продано: понедельник - x кг. яблок, y кгю груш, z кгю апельсинов (x, y,z - принимают разные значения в понедельник и во вторник). напишите программу, которая будет вычислять, на какую сумму прдал магазин фруктов в каждый из этих дней и за оба дня вместе.

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 var   a, b, c, x, y, z: integer;   summa1, summa2: integer; begin   write('яблоки(руб/кг): ');   readln(a);   write('груши(руб/кг): ');   readln(b);   write('апельсины(руб/кг): ');   readln(c);   writeln;   writeln('понедельник: ');   write('продано кг яблок: ');   readln(x);   write('продано кг груш: ');   readln(y);   write('продано кг апельсинов: ');   readln(z);   summa1: =x*a+y*b+z*c;   writeln;   writeln('вторник: ');   write('продано кг яблок: ');   readln(x);   write('продано кг груш: ');   readln(y);   write('продано кг апельсинов: ');   readln(z);   summa2: =x*a+y*b+z*c;   writeln;   writeln('понедельник: ', summa1, ' руб; вторник: ', summa2, ' руб'); end.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.