Program One;
var A,B,C,F:real;
Begin
Writeln('vvedite 3 chisla')
Readln(A,B,C);
If A+B<C
Then F:=1;
Else
F:=0;
Writeln ('A=','B=','C=');
Readln;
end
var A,B,C,F:real;
Begin
Writeln('vvedite 3 chisla')
Readln(A,B,C);
If A+B<C
Then F:=1;
Else
F:=0;
Writeln ('A=','B=','C=');
Readln;
end
Комментариев нет:
Отправить комментарий