Есть ответ 👍

Напишите программы : 1)одна штука некоторого товара стоит 20,4 руб. напечатать таблицу стоимости 2, 3, …, 20 штук этого товара. 2) напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, …, 10 фунтов (1 фунт = 453 г). 3) напечатать таблицу перевода 1..20 долларов сша в рубли по текущему курсу. курс вводится с клавиатуры.

200
330
Посмотреть ответы 2

Ответы на вопрос:


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.


Запишем все выражении в виде степеней двойки: число  имеет в своей записи 1 единицу и k нулей. число  имеет в своей записи k-1 единиц. получаем: последняя скобка нам дает 3 единицы. - 1 единица и 2015 нулей, отнимая от него 3 единицы получаем 2014-2 = 2012 единиц. прибавляем 1 единицу из числа  в итоге получаем 2013 единиц.

Популярно: Информатика