Составить и записать программу решения задачи: У Пети есть х руб. Петя купил несколько тетрадей и несколько карандашей. Вычислить стоимость

+ 0 -

Ксюхель

06 сент. 2015 г., 8:05:02 (8 лет назад)

var
x, a, b, c, d : integer;
begin
randomize;
x := trunc (random (100)) + 200;
a := trunc (random (10)) + 1;
b := trunc (random (10)) + 1;
c := trunc (random (10)) + 1;
d := trunc (random (10)) + 1;
writeln ('У Пети ', x, ' рублей. Он купил ', a, ' тетрадей по ', c,' руб. и ', b, ' карандашей по ', d, ' руб.');
writeln ('Найти стоимость покупки и сдачу.');
readln;
writeln ('Стоимость покупки: ', a * c + b * d, ' руб.');
writeln ('Сдача ', x - (a * c + b * d), ' руб.');
readln;
end.