Составьте программу, которая запрашивает стоимость 1 кг конфет и выводит ** экран...

Question

Составьте программу, которая запрашивает стоимость 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

Answer 1

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.