Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах. - Pascal ABC
Формулировка задачи:
Задана стоимость 100 гр. продукта и имеющаяся сумма. Найти соответствующее количество продукта в граммах и килограммах.
Решение задачи: «Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах.»
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.
Объяснение кода листинга программы
- В программе объявлены переменные a, b, c и sum типа real, которые будут использоваться для хранения стоимости продукта за 100 гр и суммы соответственно.
- С помощью функции readln() пользователю предлагается ввести стоимость продукта за 100 гр.
- Затем пользователю предлагается ввести сумму.
- Переменная c инициализируется как a/100, то есть стоимость продукта за 100 гр, деленная на 100.
- Переменная sum инициализируется как trunc(b/c), то есть округленное до ближайшего целого число, деленное на c. Это будет общая сумма продукта в граммах.
- С помощью функции write() выводится сообщение с количеством продукта в граммах, равным sum.
- С помощью функции write() выводится сообщение с количеством продукта в килограммах, равным sum/1000, то есть sum, деленная на 1000.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д