Question

Написать программу
Покупатель имеет 1000 рублей. На сколько килограммов конфет (точность до граммов) хватит ему денег? Цену за кг конфет вводит пользователь.

Answer 1

program Hel;

var a: real;

begin

write('Цена за килограмм: ');

readln(a);

write('Можно купить ',1000/a:0:2,' килограмм конфет')

end.