Question

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2,
1.4, . . . , 2 кг конфет.
Решите в паскале через while и repeat

Answer 1

var

 n,t:real;

begin

 readln(n);

 t:=1.2;

 repeat

   writeln(t,': ',t*n);

   t:=t+0.2;

 until t>2;  

end.

Answer 2

Ответ:

1.

program v1;

var c,v:real;

begin

v:=1.2;

write('Введите стоимость 1 кг конфет ');

readln(c);

while v<=2 do

begin

writeln('Стоимость ',v:3,' кг конфет равна ', v*c:0:2);

v:=v+0.2

end  

end.

2.

program v2;

var c,v:real;

begin

v:=1.2;

write('Введите стоимость 1 кг конфет ');

readln(c);

repeat

writeln('Стоимость ',v:3,' кг конфет равна ', v*c:0:2);

v:=v+0.2

until v>2  

end.