Вводится четырехзначное число, вывести его цифры (используя div и mod) в строку через пробел и в столбик.

Насколько я помню,операторы div и mod - операторы деления.mod - возвращает остаток от деления,а div - наоборот,целую часть.алгоритм прост в данном случае: пусть число abcd - заданное пользователем число.тогда первая цифра будет равна : a = abcd div 1000 //a - число тысяч вторая : b = (abcd - (a*1000)) div 100 //b - число сотен третья : c = (abcd - (a*1000 + b*100)) div 10 // c - число десятков четвертая : d = abcd mod 10 // d - остаток от деления,в данном случае число единиц. остается только вывести a,b,c и d через пробел на экран.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var a,b,h: real;   write('введите начальное значение, конечное и шаг: ');   read(a,b,h);   var n: =trunc((b-a)/h)+1;   for var i: =1 to n do begin       var x: =a+(i-1)*h;       var y: =(x> 0) and (x< =2)? x*x+cos(x): 4/x;       writeln(x: 0: 3,' ',y: 0: 5)       end end. пример введите начальное значение, конечное и шаг: -2.5 1.6 0.2 -2.500 -1.60000 -2.300 -1.73913 -2.100 -1.90476 -1.900 -2.10526 -1.700 -2.35294 -1.500 -2.66667 -1.300 -3.07692 -1.100 -3.63636 -0.900 -4.44444 -0.700 -5.71429 -0.500 -8.00000 -0.300 -13.33333 -0.100 -40.00000 0.100 1.00500 0.300 1.04534 0.500 1.12758 0.700 1.25484 0.900 1.43161 1.100 1.66360 1.300 1.95750 1.500 2.32074

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! м begin   var a: =readinteger.tostring.adjacentgroup;   var f: =false;   foreach var g in a do       if g.count> 1 then begin           write('yes'); f: =true; break       end;   if not f then write('no')   end. примеры 5221 yes 1232 no о begin   var s: =readinteger.tostring;   if s.length< > (s.distinct).count then write('yes')   else write('no')  end. примеры 212 yes 12345 no