Определить разрядность и знак числа из интервала [-100;100] число задать случайным образом. Pascal ABC
Answers & Comments
fatukah
Var n:integer; b,c:string; begin n:=random(200)-100; if n>0 then b:='+' else b:='-'; if (abs(n)>10) then c:='десятки'; if (abs(n)<10) then c:='единицы'; writeln('число=',n,' знак ',b,'разрадность ',c); end.
0 votes Thanks 1
vitas1648
Var x:byte; razryad, chastnoe:integer; begin x := Random(200) - 100; razryad := 0; repeat razryad := razryad + 1; chastnoe := x div 10; until (chastnoe <> 0); if x < 0 then write("Число: ",x, "отрицательное, количество разрядов: ", razryad) else if x > 0 then write("Число: ",x, "положительное, количество разрядов: ", razryad) else write("Число:",x ," равно нулю, количество разрядов: ", razryad); writeln; end.
Answers & Comments
n:integer;
b,c:string;
begin
n:=random(200)-100;
if n>0 then
b:='+' else b:='-';
if (abs(n)>10) then
c:='десятки';
if (abs(n)<10) then
c:='единицы';
writeln('число=',n,' знак ',b,'разрадность ',c);
end.
razryad, chastnoe:integer;
begin
x := Random(200) - 100;
razryad := 0;
repeat
razryad := razryad + 1;
chastnoe := x div 10;
until (chastnoe <> 0);
if x < 0 then write("Число: ",x, "отрицательное, количество разрядов: ", razryad) else
if x > 0 then write("Число: ",x, "положительное, количество разрядов: ", razryad) else
write("Число:",x ," равно нулю, количество разрядов: ", razryad);
writeln;
end.