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

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

Решение:

program Begin34;
var
  X,A,Y,B,KosztChocolate,KosztToffee,Ratio: Real;
begin
  Write('Введите кол-во шоколадных конфет в кг: ');
  Readln(X);
  Write('Введите стоимость этого кол-ва шоколадных конфет в руб. : ');
  Readln(A);
  Write('Введите кол-во ирисок в кг: ');
  Readln(Y);
  Write('Введите стоимость этого кол-ва ирисок в руб. : ');
  Readln(B);
  KosztChocolate:=A/X;
  Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztChocolate,' руб.');
  KosztToffee:=B/Y;
  Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztToffee,' руб.');
  Ratio:=KosztChocolate/KosztToffee;
  Writeln('Шоколадные конфеты дороже ирисок в : ',Ratio,' раз.');
end.

program Begin34;

var

X,A,Y,B,KosztChocolate,KosztToffee,Ratio: Real;

begin

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

Readln(X);

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

Readln(A);

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

Readln(Y);

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

Readln(B);

KosztChocolate:=A/X;

Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztChocolate,' руб.');

KosztToffee:=B/Y;

Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztToffee,' руб.');

Ratio:=KosztChocolate/KosztToffee;

Writeln('Шоколадные конфеты дороже ирисок в : ',Ratio,' раз.');

end.

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

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

Виктор

01.09.2016 в 03:57

Ошибка в задаче где второе костоф=y/b наоборот b/y!!!))

Ответить
- Anton
  
  01.09.2016 в 08:01
  
  Спасибо, поправил:
  Было:
  
  KosztToffee:=Y/B;
  
  1
  
  KosztToffee:=Y/B;
  
  Стало:
  
  KosztToffee:=B/Y;
  
  1
  
  KosztToffee:=B/Y;
  
  Ответить

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

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

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

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