//PascalABC.NET
begin
var (a, b, c) := ReadInteger3('введите три числа');
Println('Сумма: ', a+b+c);
Print('Произведение: ', a*b*c);
end.
Объяснение:
Variant 1:
var
a, b, c: integer;
Writeln('Введите 3 числа: ');
Read(a, b, c);
Writeln('Сумма: ', a + b + c);
Writeln('Произведение: ', a * b * c);
Varian 2:
var (a,b,c):=ReadInteger3('Введите 3 числа: ');
Println('Сумма: ', a+b+c, ' Произведение: ', a*b*c);
//PascalABC.NET
begin
var (a, b, c) := ReadInteger3('введите три числа');
Println('Сумма: ', a+b+c);
Print('Произведение: ', a*b*c);
end.
Объяснение:
Variant 1:
var
a, b, c: integer;
begin
Writeln('Введите 3 числа: ');
Read(a, b, c);
Writeln('Сумма: ', a + b + c);
Writeln('Произведение: ', a * b * c);
end.
Varian 2:
begin
var (a,b,c):=ReadInteger3('Введите 3 числа: ');
Println('Сумма: ', a+b+c, ' Произведение: ', a*b*c);
end.