Вычислить сумму 4 целых чисел(любых) и вывести развернутое сообщение о проведеной операции.

Ответы

Ответ дал: JustPeople
0
VAR  
   a,b,c,d: LongInt;
BEGIN  
   Read(a,b,c,d); 
   Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);
END.
Ответ дал: Бублик007
0
VAR  
   a,b,c,d: LongInt;
BEGIN  
   Read(a,b,c,d);     
   Write('Сумма введенных чисел равна ',a+b+c+d);
END.
Похожие вопросы