Подскажите дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. разработать схему алгоритма для решения этой . протестировать алгоритм для a=5, a=-4, a=0. сделать в паскале. программу я написала: program n1; var a: real; begin readln (a); if a> 0 then a: =a+1; writeln; end. правильно или нет? и какие у меня должны выходить значения? если я 5 подставляю выходит 5, хотя по условию 5+1=6, разве нет? ?

Writeln(a) -вывод результата перед end.

10 код на python 3.5: from itertools import groupby n = 1000 primes = [2, 3] i = 1 while true:   if all((6 * i - 1) % p ! = 0 for p in primes):     primes.append(6 * i - 1)   if len(primes) == n:     break   if all((6 * i + 1) % p ! = 0 for p in primes):     primes.append(6 * i + 1)   if len(primes) == n:     break   i += 1 bin_string = ''.join(list(map(lambda p: bin(p)[2: ], lengths = [len(list(g)) for k, g in groupby(bin_string) if k == '0'] print(max(lengths))

Var     x,p: array[1..100] of integer;     k,n: integer; begin write('введите k: '); readln(k); write('введите массив x(',k,'): '); for k: = 1 to k do       read(x[k]); write('массив p: '); n: =0; for k: = 1 to k do       if x[k]< 0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       if x[k]=0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       if x[k]> 0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       write(' ',p[k]) end. пример: введите k: 6 введите массив x(6): 3 0 -2 2 4 -3 массив p: -2 -3 0 3 2 4