Вопрос по информатике:
Определить разрядность и знак числа из интервала [-100;100] число задать случайным образом. Pascal ABC
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.05.2015 02:02
- Информатика
- remove_red_eye 2556
- thumb_up 40
Ответы и объяснения 2
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.
- 23.05.2015 23:06
- thumb_up 7
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.
- 24.05.2015 10:15
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.