Найти разрядность и символ числа из промежутка [-100;100] число задать случайным образом.

Question

Вопросы-ответы » Информатика

Найти разрядность и символ числа из промежутка [-100;100] число задать случайным образом.

Определить разрядность и символ числа из промежутка [-100;100] число задать случайным образом. Pascal ABC

Задать свой вопрос

Василиса Сятрайкина 2019-03-27 07:28:51

Fatukan, бахни прогу про числа-похожие/непохожи числа в нем, там всего пару строчек поменять)

Илья Российкин 2019-03-27 07:32:31

по сущности только рандомно число задать и число k вывести) из твоей проги)

Максим 2019-03-27 07:41:18

varn:integer;b,c:string;beginn:=random(200)-100;if n>0 thenb:='+' else b:='-';if (абс(n)>10) thenc:='десятки';if (абс(n)<10) thenc:='единицы';writeln('число=',n,' символ ',b,'разрадность ',c);end.

Милена Мараховка 2019-03-27 07:51:13

как-то так

Игорь 2019-03-27 07:58:07

а ABS(N) это у нас что? чет я подлагиваю сейчас)

Игорек Полотебнов 2019-03-27 08:03:08

абсолютная величина

Толя Голенок 2019-03-27 08:08:59

типо чтобы отрицательные числа тоже проверял

Nikitka Bakaldin 2019-03-27 08:10:41

светло)

Пожуевич Виктор 2019-03-27 07:34:03

Fatukan, бахни прогу про числа-схожие/непохожи числа в нем, там всего пару строчек поменять)

Сергей Товстюк 2019-03-27 07:42:10

по сущности только рандомно число задать и число k вывести) из твоей проги)

Кирилл Коряка 2019-03-27 07:48:47

varn:integer;b,c:string;beginn:=random(200)-100;if n>0 thenb:='+' else b:='-';if (абс(n)>10) thenc:='десятки';if (abs(n)<10) thenc:='единицы';writeln('число=',n,' символ ',b,'разрадность ',c);end.

Vitja Smogalla 2019-03-27 07:53:37

как-то так

Надя Чернобровая 2019-03-27 07:59:27

а Абс(N) это у нас что? чет я подлагиваю сейчас)

Надежда Гамгия 2019-03-27 08:05:05

безусловная величина

Ванька Мишичев 2019-03-27 08:11:18

типо чтоб отрицательные числа тоже проверял

Хрестинов Ванек 2019-03-27 08:20:20

ясно)

Зарбаилова Регина
Информатика
2019-03-27 07:24:28
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Помогите пожалуйста написать сочинение-миниатюра на тему: quot;как стать истинным

У плитц шоколаду 24 часточки. Плитку роздлили на 4 рвн частини.

Периметр равнобедренного треугольника=92 см.основание 40смчему одинакова боковая сторона?

2cos^2x = корень из 3sin(3пи/2 - x)просвет (-п/2;п)

назовите несколько произведений о войне, где есть Танки!поточнее где рассказ либо

Углы при одном из оснований трапеции, равны 44 и 46 градуса,

Безотлагательно помогите!!!! Мотоциклист проехал от села до озера 60 км. На оборотном

в каких формах можно организовать бизнес?

выразительные средства в стихотворении Есенина quot;ты запой мне ту песню...quot;

372 : 10 , 358 : 10 , 615 :

Егор Таисов · Answer 1 · 2019-03-27 07:33:39+3:00

Var x:byte;
razryad, chastnoe:integer;
begin
  x := Random(200) - 100;
  razryad := 0;
  repeat
  razryad := razryad + 1;
  chastnoe := x div 10;
  until (chastnoe lt;gt; 0);
  if x lt; 0 then write("Число: ",x, "отрицательное, количество разрядов: ", razryad) else
  if x gt; 0 then write("Число: ",x, "положительное, количество разрядов: ", razryad) else
  write("Число:",x ," одинаково нулю, количество разрядов: ", razryad);
  writeln;
end.

Виталя Осютин · Answer 2 · 2019-03-27 07:32:45+3:00

Var
n:integer;
b,c:string;
begin
n:=random(200)-100;
if ngt;0 then
b:='+' else b:='-';
if (абс(n)gt;10) then
c:='10-ки';
if (abs(n)lt;10) then
c:='единицы';
writeln('число=',n,' символ ',b,'разрадность ',c);
end.

О проекте

Найти разрядность и символ числа из промежутка [-100;100] число задать случайным образом.

Добро пожаловать!