Botanik_IV
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ помагите плиз, другану задачку решаю понять не могу(с паскалем не связывался):
задачечка: из чисел а,б,ц найти хотябы одну пару взаимо противоположных чисел. Я так понял это что то типа "-2" и 2, написал это:
Program chisla;
var a,b,c:integer;
begin
Writeln('введите числа через пробел a,b,c');
Readln(a,b,c);
if a=-(b) then writeln('взаимопротивоположные числа a=',a,' и b=',b);
if a=-(c) then writeln('взаимопротивоположные числа a=',a,' и c=',c);
if b=-(c) then writeln('взаимопротивоположные числа b=',b,' и c=',c);
end.
после ввода типа: -1,1,-2
выводит ошибку "Error 106: Invalid numeric format."
я туп в паскале и не пойму что не так, предположение в строке "var a,b,c:integer;"
может подскажете?....
З.Ы. заранне блогадарен. |
Всего записей: 52 | Зарегистр. 04-08-2004 | Отправлено: 22:05 21-08-2008 | Исправлено: Botanik_IV, 22:51 21-08-2008 |
|
