program Prog;
var a, b, c: Integer;
begin
writeln('Введите три числа:');
read(a); read(b); read(c);
{на 4}
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
{на 5}
writeln('(',a,'+',b,'+',c,')/3=',((a+b+c)/3):0:2);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Prog;
var a, b, c: Integer;
begin
writeln('Введите три числа:');
read(a); read(b); read(c);
{на 4}
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
{на 5}
writeln('(',a,'+',b,'+',c,')/3=',((a+b+c)/3):0:2);
end.