Предмет: Информатика, автор: daniel228798

Информатика 9 класс

(ответил 20 баллов)

Заранее спасибо

Фермер собрал урожай картошки. Составить программу на языке программирования (ПАСКАЛЬ) для определения выручки фермера при продаже картошки. Все исходные данные вводятся с
клавиатуры. Пояснить, какими переменными, какие величины обозначены. ​


uplmtq: А какие исходные данные нужны?)
daniel228798: есть честно сам такое никогда не решал поэтому не знаю
uplmtq: Возьму за исходные данные вес урожая (кг) и цена за 1 кг. Пойдет?
uplmtq: Все переменные будут целочисленными
daniel228798: окей

Ответы

Автор ответа: uplmtq
1

Ответ:

program rev;

var

 weight, price, revenue: integer;

begin

 write('Введите количество урожая, которое собрал фермер(кг): ');

 readln(weight);

 write('Введите цену за 1 кг картофеля: ');

 readln(price);

 revenue := weight * price;

 write('Выручка составила: ', revenue);

end.

Объяснение:

program rev;  // Название программы

var  

 weight, price, revenue: integer;  // Создание целочисленных переменных:

  • weight - вес урожая, который собрал фермер;
  • price - цена картофеля за 1 килограмм;
  • revenue -  выручка с продажи картофеля.

begin  // Начало программы

 write('Введите количество урожая, которое собрал фермер(кг): ');  // Вывод сообщения в консоль

 readln(weight);  // Считываем с клавиатуры вес урожая

 write('Введите цену за 1 кг картофеля: ');  // Вывод сообщения в консоль

 readln(price);  // Считываем с клавиатуры цену картофеля за 1 килограмм

 revenue := weight * price;  // Рассчитываем выручку с продажи картофеля по формуле: выручка = вес * цена за 1 кг

 write('Выручка составила: ', revenue);  // Вывод сообщения в консоль и значение переменной revenue (выручка)

end. // Конец программы

Приложения:

daniel228798: тут скопировать не получается. можешь мне в тг скинуть текстом?
uplmtq: Файл могу прикрепить
daniel228798: ну или так
uplmtq: Прикрепил
daniel228798: не вижу
uplmtq: Под моим ответом белый прямоугольник с серыми рамками, в центре синяя надпись "загрузить pas"
daniel228798: нету
uplmtq: Страницу перезагружали?
daniel228798: да
uplmtq: Странно.
Похожие вопросы