Регистрация
VikaPikcha
28.11.2022 17:33
Информатика
Есть ответ 👍

Запишите команду генерации случайного числа от (-10;25)

162
242
Посмотреть ответы 2

Ответы на вопрос:

умный326
умный326
4,7(60 оценок)

var num : real;

begin

 randomize;

 num:= random(36) - 10;

 writeln(num);

end.

Объяснение:

prudniksveta
prudniksveta
4,6(85 оценок)

var a,b,c: integer;

begin

  read(a,b,c);

if a< 0

then a: =a*a*a*a

else a: =a*a;

if b< 0

then b: =b*b*b*b

else b: =b*b;

if c< 0

then c: =c*c*c*c

else c: =c*c;

  write (a,' ',b,' ',c);

end.

вроде так затестируй на паскале у меня нет но суть такова вроде должна работать

Популярно: Информатика