Begin33. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.
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.
**type** real;
: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Begin34. Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
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.
**type** real;
: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 Посмотрите ещё задачи о стоимости конфет.