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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы