Код ниже
Объяснение:
program howMuch;
var m, n, paid: integer;
begin
writeln('Введите количество порций мороженого и плиток шоколада: ');
readln(n,m);
paid := 50*n + 85*m;
writeln('Сумма покупок составила: ', paid, ' рублей');
end.
Код ниже
Объяснение:
program howMuch;
var m, n, paid: integer;
begin
writeln('Введите количество порций мороженого и плиток шоколада: ');
readln(n,m);
paid := 50*n + 85*m;
writeln('Сумма покупок составила: ', paid, ' рублей');
end.