Напишите программы : 1)одна штука некоторого товара стоит 20,4 руб. напечатать таблицу стоимости 2, 3, …, 20 штук этого товара. 2) напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, …, 10 фунтов (1 фунт = 453 г). 3) напечатать таблицу перевода 1..20 долларов сша в рубли по текущему курсу. курс вводится с клавиатуры.
200
330
Ответы на вопрос:
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 единиц.
Популярно: Информатика
-
danypapajoy8eeo01.05.2023 23:59
-
LedyKoshka29.12.2020 14:17
-
Komar100624.04.2021 19:50
-
Lamiyhideki6914.07.2021 00:37
-
игорь77817.02.2023 06:57
-
ятупик227.02.2020 20:08
-
waterrrfall22.08.2021 04:12
-
виквик413.02.2022 05:00
-
меор08.10.2020 04:46
-
VADioG14.02.2022 04:13