1. Информатика
  2. Дано целое число. если оно является

Дано целое число. если оно является положительным то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное число. решить нужно в рандоме! : (

kostyasmirnov kostyasmirnov    2   01.06.2019 13:50    0

Ответы
Stesha678975425789 Stesha678975425789  02.07.2020 17:28
Var x,y: integer;
  begin  x:= -10+random(20);
  if x>0 then y:=x+1
 else if x<0 then y:=x-2 else y:=10;
  writeln('Число ',x,' результат ',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Тучка12 Тучка12  05.07.2019 13:40
Напишите программу, которая вводит номер месяца и выводит название времени года на языке. при вводе неверного номера месяца должно быть выведено слово no ....
sokol4500 sokol4500  05.07.2019 13:40
Отметьте все верные высказывания. двоичная запись числа короче десятичной данные в современных компьютерах кодируются в двоичном коде двоичная запись чисел удобна для человека...
misspotter misspotter  17.08.2019 23:30
Какой тип таблицы будет по теме рекорды по бегу у мужчин по состоянию на 01.01.93 для открытых стадионов...
dim10102806 dim10102806  02.06.2019 00:40
Используя цикл с постусловием, составить алгоритм вычисления произведения f=2*4*6*8**2n, где n вводится...
MIshaDo MIshaDo  02.06.2019 00:40
Как египтяне перешли от изображения значком целого слова к изображению значком отдельного звука? передавались ли у египтян иероглифами гласные звуки? в чём была основная трудность...
умный321 умный321  02.06.2019 00:40
Исполнить алгоритм по шагам при х1 = 8 и х2 = 3 , записать значение величины y алг расчёт функции нач ввод х если х 3 то y =: 3*х-158 иначе y =: x^2 + 11 всё вывод y кон...
Максим555111 Максим555111  01.06.2019 22:38
Вчем ошибка? program qq; var a,b: integer; begin writeln( введите значение a ); read(a); writeln( введите значение b ); read(b); writeln( a+b= ,a+b); writeln( a-b= ,a-b); writeln(...
pourkur1111oz10kt pourkur1111oz10kt  02.06.2019 00:50
Составьте программу,которая выводит на экран в зависимости от времени суток (от 8 до 12 - утро), (от 12 до 17 - день), (от 17 до 23 - вечер) в паскале...
stasleraz stasleraz  02.06.2019 00:50
1. переведите из одних единиц измерения информации в другие: а) 512 кб= … мб б) 10 кб =…. байт б) 136 бит = … байт...
Barkinhoev06isl Barkinhoev06isl  02.06.2019 00:50
Эта решается в паскале! составьте программу для решения следующей : напечатайте таблицу перевода расстояний из дюймов в сантиметры (1 дюйм=2,54 см) для значений от 1 до 50...

Популярные вопросы