Напишите функцию которая возвращает сумму действительных чисел a b с d
Var
A,B,C,D:real;
Begin
WriteLn(Введи четыре числа);
ReadLn(A,B,C,D);
WriteLn(A, + ,B, + ,C, + ,D, = ,A+B+C+D);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
