Вацлав
5 год назад
Пожалуйста посчитайте ПОЖАЛУЙСТА !!!! НАПИШИТЕ ПРОГРАММУ ДЛЯ ПАСКАЛЬ АВС. ВОТ Задание :Даны 4 числа a ,b, с ,d найдите сумму и произведение этих чисел
ОТВЕТЫ
Irina
Oct 24, 2020
Var
a,b,c,d:real;
Begin
Write('Введите четыре числа: ');ReadLn(a,b,c,d);
WriteLn('Сумма этих чисел: ',a+b+c+d);
WriteLn('Произведение этих чисел: ',a*b*c*d);
End.
a,b,c,d:real;
Begin
Write('Введите четыре числа: ');ReadLn(a,b,c,d);
WriteLn('Сумма этих чисел: ',a+b+c+d);
WriteLn('Произведение этих чисел: ',a*b*c*d);
End.
260
