⇢ СС
Света Субботина
Юлия
program xxx;
var
i: integer;
begin
Write('Число: ');
ReadLn(i);
WriteLn(Abs(i));
ReadLn;
end.
Ел
Елена
посмотри функцию abs
Алёнка
Я сам только начинающий, но наверное так: ?
Var
a, b : Real; (или Inreger, хз)
Begin
Write('введите число: ');
Readln(a);
b:= -a;
If (a>0) then writeln('a= ', a);
If (a
МФ
Мариночка Филиппова
var a:real; begin readln(a); writeln(abs(a)); readln end.
Похожие вопросы