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

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

1235124 1235124    3   01.06.2019 13:50    0

Ответы
dOgIchARM dOgIchARM  02.07.2020 17:27
Var x,y: integer;
  begin  x:= -10+random(20);
  if x>0 then y:=x+1 else y:=x;
  writeln('Число ',x,' результат ',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
raynis2 raynis2  25.11.2021 12:45
Как управлять цветами в графическом редакторе? ❗...
настя7562 настя7562  25.11.2021 12:44
Завдання з машиною Поста 5. Напишіть програму, що подвоює довільне число, що розташовано на стрічці машини Поста, додаючи мітки справа від нього. Каретка знаходиться над крайньою...
katyasota1 katyasota1  17.09.2019 12:30
Результатом выполнения кода sum=0; for i: =1 to n do for j: =1 to n do if (i =j) and (i+j =n+1) then sum: =sum+x[i,j] writeln (sum) является: является: а) сумма элементов ниже...
людмила245 людмила245  04.10.2019 23:40
Написать через for программу в паскале, моделирующую игру в кости до 10 ходов. (надо суммировать сумму чисел на двух кубиках за 10 ходов)....
evgendm555 evgendm555  04.10.2019 23:40
Как вписать в символьную строку (char) число a[i], где a - array[1..n] of longint (i не меняется) ?...
Tolyashasorokin Tolyashasorokin  04.10.2019 23:40
Запишите алгоритм решение уравнения: y=3x-1/2-1-3 в виде блок-схем redchick хоть ты...
простоя43 простоя43  11.02.2022 06:35
Соотнесите название элементов интерфейса электронной таблицы и точками на изображение...
Ser099gei Ser099gei  11.02.2022 06:36
Для чего нужны графики и диаграммы?...
KolbasaBatonSir KolbasaBatonSir  06.05.2021 15:31
У кожному стовпці і кожному рядку матриці міститься строго по одному нульового елементу. Перестановкою рядків домогтися розташування всіх нулів на головнійдіагоналі матриці....
0070070070007 0070070070007  06.05.2021 15:33
разобраться если надо вопрос скажу в комментариях​...

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