fork download

copy

var
  n: longint;
  i: byte;
  boo: boolean;
begin
  write('Введите число n: ');
  readln(n);
  boo:=true;
  while n>0 do
  begin
    i:=n mod 10;
    if n mod i<>0 then boo:=false;
    writeln(i);
    n:=n div 10;
  end;
  if boo then writeln('Число делится на все свои цифры')
    else writeln('Число не делится на все свои цифры');
  readln;
end.

prog.cpp:6:9: warning: character constant too long for its type
   write('Введите число n: ');
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.cpp:16:23: warning: character constant too long for its type
   if boo then writeln('Число делится на все свои цифры')
                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.cpp:17:18: warning: character constant too long for its type
     else writeln('Число не делится на все свои цифры');
                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.cpp:1:1: error: ‘var’ does not name a type
 var
 ^~~
prog.cpp:3:4: error: found ‘:’ in nested-name-specifier, expected ‘::’
   i: byte;
    ^
prog.cpp:3:3: error: ‘i’ does not name a type
   i: byte;
   ^
prog.cpp:4:6: error: found ‘:’ in nested-name-specifier, expected ‘::’
   boo: boolean;
      ^
prog.cpp:4:3: error: ‘boo’ does not name a type
   boo: boolean;
   ^~~
prog.cpp:5:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:7:9: error: expected constructor, destructor, or type conversion before ‘(’ token
   readln(n);
         ^
prog.cpp:8:3: error: ‘boo’ does not name a type
   boo:=true;
   ^~~
prog.cpp:9:3: error: expected unqualified-id before ‘while’
   while n>0 do
   ^~~~~
prog.cpp:12:5: error: expected unqualified-id before ‘if’
     if n mod i<>0 then boo:=false;
     ^~
prog.cpp:13:12: error: expected constructor, destructor, or type conversion before ‘(’ token
     writeln(i);
            ^
prog.cpp:14:5: error: ‘n’ does not name a type
     n:=n div 10;
     ^
prog.cpp:15:3: error: ‘end’ does not name a type
   end;
   ^~~
prog.cpp:16:3: error: expected unqualified-id before ‘if’
   if boo then writeln('Число делится на все свои цифры')
   ^~
prog.cpp:18:3: error: ‘readln’ does not name a type
   readln;
   ^~~~~~
prog.cpp:19:1: error: ‘end’ does not name a type
 end.
 ^~~

Standard output is empty