Блог учителя Информатики

Решение задачи Begin33


Условие задачи:

Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.


uses
  PT4;

var
  x, y, a: real;

begin
  Task('Begin33');
  read(x, a, y);
  write(a / x, (a / x) * y);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий