Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах. - Pascal ABC

Формулировка задачи:

Задана стоимость 100 гр. продукта и имеющаяся сумма. Найти соответствующее количество продукта в граммах и килограммах.

Код к задаче: «Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах. - Pascal ABC»

textual
program cyb;
uses crt;
var   a,b,c,sum:real;
begin
write('Введите стоимость продукта за 100 гр: ');
readln(a);
Write('Введите сумму: ');
 readln(b);
  c:=a/100;
  sum:=trunc(b/c);
  writeln('колличество продукта: ',sum,' гр');
  write('колличество продукта ',sum/1000,' кг');
end.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ