3 ЗАДАЧИ, 1. Ввести с клавіатури три числа, додатні піднести до куба, а від'ємні замініти на 0. 2. Задано ціле трицифрове число. Знайти середнє арифметичне числа. 3. Знайти добуток кубів цілих чисел з інтервалу від n до m

var

 i, n:integer;

 price:real;

begin

  n := 20;

  price := 20.4;

  for i := 1 to n do

    writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');

end.

 

 

//вторая задача

var

  i, f, n:integer;

begin

  f := 453;

  n := 10;

  writeln('фунты    граммы');

  for i := 1 to n do

    writeln(' ', i:2, i * f :11);

end.

 

//третья задача

var

  i, n:integer;

  k:real;

begin

  n := 20;

  writeln('Введите курс '); readln(k);

  writeln('доллары    рубли');

  for i := 1 to n do

    writeln('  ', i:2, i * k:13:2);

end.