Question

Написать программу решения задачи в Паскале: У Маши было а конфет и b яблок, у Васи на k конфет больше и на n яблок меньше. Найти сколько всего было у ребят конфет и сколько яблок.

Answer 1

Ответ:

program p1;

var a,b,k,n:integer;

begin

write ('Введите количество конфет у Маши ');

readln (a);

write ('Введите количество яблок у Маши ');

readln (b);

write ('Введите на сколько конфет больше у Васи ');

readln (k);

write ('Введите на сколько яблок меньше у Васи ');

readln (n);

write('Всего у ребят было ',a+a+k,' конфет и ',b+b-n,' яблок')

end.