Question

Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг

Answer 1

var
n:real;
i:1..24;
begin
write('Vvedite senu za 1 kg = ');
readln(n);
for i:=2 to 24 do
if (i mod 2 = 0) then writeln('Ves=',i/10:0:1,' kg sena=',n*i/10:1:1);
end.

Answer 2

var

  price:real;

  i:byte;

begin

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

  readln(price);

  for i := 1 to 12 do

    writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');

end.