Решаем задачи Абрамян на Паскале. Begin 33

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

Решение:

program Begin33;
var
  X,A,Y,koszt,cen: Real;
begin
  Write('Введите кол-во конфет в кг: ');
  Readln(X);
  Write('Введите стоимость этого кол-ва в руб. : ');
  Readln(A);
  koszt:=A/X;
  Writeln('Цена этих конфет за 1 кг: ',koszt);
  Write('Сколько килограм этих конфет посчитать: ');
  Readln(Y);
  cen:=Y*koszt;
  Write('Цена ',Y,' кг. этих конфет равна : ',cen,' руб.');
end.

program Begin33;

var

X,A,Y,koszt,cen: Real;

begin

Write('Введите кол-во конфет в кг: ');

Readln(X);

Write('Введите стоимость этого кол-ва в руб. : ');

Readln(A);

koszt:=A/X;

Writeln('Цена этих конфет за 1 кг: ',koszt);

Write('Сколько килограм этих конфет посчитать: ');

Readln(Y);

cen:=Y*koszt;

Write('Цена ',Y,' кг. этих конфет равна : ',cen,' руб.');

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 33

Комментарии:

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