ВВЕРХ
ВНИЗ

Сколько стоят конфеты

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
var
  X, A, Y: real;

begin
  write('X = ');
  readln(X); { <-- Вводим вес конфет }
  write('A = ');
  readln(A); { <-- Вводим стоимость конфет }
  A := A / X; { <-- Стоимость 1 кг конфет }
  writeln('Стоимость 1 кг конфет: ', A:0:2, ' рублей');
  write('Y = ');
  readln(Y); { <-- Вводим другой вес конфет }
  A := A * Y; { <-- Стоимость Y кг конфет }
  writeln('Стоимость ', Y, ' кг конфет: ', A:0:2, ' рублей');
  readln
end.

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
var
  X, A, Y, B: real;

begin
  writeln('Сколько у вас шоколадных конфет(в килограммах)?');
  readln(X); { <-- Вводим вес шоколадных конфет }
  writeln('Какая стоимость этих конфет?');
  readln(A); { <-- Стоимость шоколадных конфет }
  writeln('Сколько килограмм ирисок вы имеете?');
  readln(Y); { <-- Вводим вес ирисок }
  writeln('Какая стоимость ирисок?');
  readln(B); { <-- Вводим стоимость ирисок }
  writeln;
  A := A / X; { <-- цена 1 кг шоколадных конфет }
  writeln('Цена(в рублях) 1 кг шоколадных конфет: ', A:0:2);
  B := B / Y; { <-- цена 1 кг ирисок }
  writeln('Цена(в рублях) 1 кг ирисок: ', B:0:2);
  A := A / B; { <-- отношение двух цен }
  writeln('Шоколадные конфеты дороже ирисок в ', A, ' раз');
  readln
end.

Посмотрите ещё задачи о стоимости конфет.




Яндекс.Метрика