Настасий
7 год назад
Помогите решить задачи по программе паскаль.
ОТВЕТЫ
Харсей
Jul 18, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s,a,d:real;
Read(s,a,d);
Writeln(Сумма=,s+a+d,, произведение=,s*s*d)
end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
Range(3,15,2).Select(b-gt;(b,b*b,b*b*b)).Println(NewLine)
end.
Результат
(3,9,27)
(5,25,125)
(7,49,343)
(9,81,729)
(11,121,1331)
(13,169,2197)
(15,225,3375)
// Внимание! Если программа не работает, обновите версию!
begin
var s,a,d:real;
Read(s,a,d);
Writeln(Сумма=,s+a+d,, произведение=,s*s*d)
end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
Range(3,15,2).Select(b-gt;(b,b*b,b*b*b)).Println(NewLine)
end.
Результат
(3,9,27)
(5,25,125)
(7,49,343)
(9,81,729)
(11,121,1331)
(13,169,2197)
(15,225,3375)
191
