SpAcE
Cобстна задача)
Найти ошибки и понять смысл этой программы)
Program My_1
var a:integer;
Begin
writeln ('введите целое число');
readln(a);
writeln('???'???,ABS(a));
writeln('нажмите <Enter>');
readln
End.
Тема актуальна в течение 2ух часов)
SpAcE, writeln('??????',ABS(a));
06 Окт 2010, 8:35SpAcE
вместо вопросов должен быть какой-то текст который раскрывает смысл программы
06 Окт 2010, 8:38iceman12
О_о. дык так бы и сказал. Функция выводит модуль числа. То есть вводишь "-5", а выводится "5"
06 Окт 2010, 13:02iceman12
Program My_1
var a:integer;
Begin
writeln ('введите целое число');
readln(a);
writeln('Модуль введенного числа = ',ABS(a));
writeln('нажмите <Enter>');
readln
End.