Question

Составьте блок-схему алгоритма используя цикл с параметром. Условный
оператор в теле цикла не использовать.


Одна штука некоторого товара стоит 20.4 руб. Напечатать таблицу стоимости 2,3,...,20 штук этого товара.

Answer 1

//1
var i: byte;
begin
  for i := 2 to 20 do
    writeln('Цена за ',i,' = ', 20.4 * i);
end.


//2
var i: byte;
Price, TotalPrice: real;
begin
  Price := 20.4;
  for i := 2 to 20 do
  begin
    TotalPrice := Price * i;
    writeln('Цена за ',i,'шт. = ', TotalPrice);
  end;
end.