-Цитата от Трэй -Цитата от ZooMMeN -Цитата от krupa
только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит
ещё раз спасибо
хоть не пустую работу здам
- uses crt;
var a,b,c,summa:real;
begin
clrscr;
readln(a,b,c);
if (a>b) and (c>b) then summa:=a+c else write(' ');
if (b>a) and (c>a) then summa:=b+c else write(' ');
if (a>c) and (b>c) then summa:=a+b else write(' ');
writeln(summa :1:0);
readln
end.
на, работает
я тока вчера паскаль начал учить
ммм хз мне написало 7 ошибок((((
оооо сенкс)))
Добавлено через 6 минут 45 секунд
-Цитата от Трэй - Program Max_Tsena;
Var a,b,c,sum : Real;
Begin
Writeln('vvedite tsenu 3-ox tovarov');
Read(a,b,c);
if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END.
вот синтаксис поправил.теперь работает
Ммм так поставить и будет работать????