Составьте программу, которая запрашивает стоимость 1 кг конфет и выводит на экран стоимость 0.1, 0.2, 0.3, 1 кг конфет. результат работыпрограммы может выглядеть так: введите стоимость 1 кг конфет: 7.6стоимость 0.1 кг конфет = 0.76 руб.стоимость 0.2 кг конфет = 1.52 руб.стоимость 0.3 кг конфет = 2.28 руб.язык программирования- pascal abc
dmitry113114
2
07.10.2019 00:20
15
Другие вопросы по теме Информатика
Xxxin
07.10.2019 13:10
rodionpanchenk
07.10.2019 13:10
Djjdcnudghu
07.10.2019 12:27
gjvftyGHbgg
07.10.2019 12:29
ekaterinaf79
07.10.2019 13:01
katemurzik
07.10.2019 13:01
molodoy3
07.10.2019 13:01
Популярные вопросы
- Сократите дробь 24а^c^\36ac...
1 - Вы заинтересовались, какие праздники самые любимые у подростков...
2 - Як читається ці слова правильно family sister фемілі чи фемилі...
3 - Как вы поняли зачем современному человеку надо знать право?...
1 - 15 б! найдите подлежащее и сказуемое : 1)сколько лишних слов!...
2 - Игрек в квадрате минус три игрек плюс 5 равно нулю...
3 - Найти корни уравнения sin5x+cos5x=1...
3 - Техническая механика. вариант 23...
3 - Краткая биография о бенито муссолине...
1 - Помгите перевести единицы измерения по 20...
3
Program candies;
var
i:integer;
c,d,m: real;
begin
write('Введите стоимость 1 кг конфет:');
readln(c);
d:=0.1;
for i:=1 to 10 do
begin
m := d*c;
writeln('Стоимость ',d,' кг конфет = ', m);
d:= d+0.1;
end;
end.