Напишите программу в паскалях Мама в магазине купила А конфет по В рублей и D печениья...

Question

Напишите программу в паскалях
Мама в магазине купила А конфет по В рублей и D печениья по F рублей. Сколько денег потратила мама?

Answer 1

Var
  a, b, d, f, s1, s2: integer;
 
begin

Writeln('Сколько конфет купила мама?');
Readln(a);

Writeln('Сколько стоят конфеты?');
Readln(b);

Writeln('Сколько печенья купила мама?');
Readln(d);

Writeln('Сколько стоят печенья?');
Readln(f);

s1:=a*b;

s2:=d*f;

Writeln('Мама купила конфет на ', s1, ' рублей, а печенья на ', s2, ' рублей.');

Writeln('Всего мама потратила: ', s1+s2, ' рублей.');

end.