Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
program chislo;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('введите три целых числа');

readln(a,b,c);
if (a<=b) and (a<=c) then a:=2*a*b*c;
if (b<=a) and (b<=c) then b:=2*a*b*c; 
if (c<=a) and (c<=b) then c:=2*a*b*c;
writeln('a=',a:5, 'b=',b:5, 'c=',c:5);
readln;
end.
Буду благодарна, если отметите как лучший. 
май 14, 2012 г.

Похожие вопросы