Напишите программу, которая выводит на экран все цифры числа, начиная с первой. входные данные входная строка содержит натуральное число n . выходные данные программа должна вывести все цифры введённого числа в одной строке, начиная с первой. цифры отделяются пробелами. примеры входные данные 123 выходные данные 1 2 3 на паскале.

Можно так: var s: string; i: integer; begin read(s); for i: = 1 to length(s) do       write(s[i],' ') end. и так: var a,b: integer; begin read(a); b: =0; while a< > 0 do     begin     b: =b*10+(a mod 10);     a: = a div 10     end; while b< > 0 do     begin     write(b mod 10,' ');     b: =b div 10     end; end.

Аеще так можно: pascalabc.net 3.2, сборка 1399 от 08.03.2017 внимание! если программа не работает, обновите версию! begin   readlnstring.println(' ') end. пример 123 1 2 3

работу примем за 1

v1=1/a

v2=1/b

t=1/(v1+v2) = ab/(a+b)

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.