Ответы
Ответ дал:
0
begin
var min,max,a,b,c,s:integer;
if a>b and a>c then max:=a
else if b>c and b>a then max:=b
s:= a+b+c;
end.
(это если Pascal ABC)
var min,max,a,b,c,s:integer;
if a>b and a>c then max:=a
else if b>c and b>a then max:=b
s:= a+b+c;
end.
(это если Pascal ABC)
Ответ дал:
0
нуу
Ответ дал:
0
крч скинь решение
Ответ дал:
0
program 123123123;
uses crt;
var a,b,c:integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
writeln('Сумма: ', a+b+c, ' Произведение: ', a*b*c);
readln;
end.
uses crt;
var a,b,c:integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
writeln('Сумма: ', a+b+c, ' Произведение: ', a*b*c);
readln;
end.
Ответ дал:
0
произведение можешь убрать
Ответ дал:
0
т.к тебе ток сумма нужна
Похожие вопросы
2 года назад
9 лет назад
9 лет назад
10 лет назад