Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Да се напише програма, която намира всички естествени числа от интервала [n;m], които се делят на всяка своя цифра (n и m са дадени естествени числа; n

  • readln(n,m);
  • if a=0 then f:=false else
  • a:= b mod 10;
  • if (i mod a)<>0 then f:=false;
  • until (b=0) or (f=false);
  • f:=true;
  • if f=true then writeln(i) else f:=true end;
  • writeln;
  • until n<m;
  • writeln('OK ,n=',n,' m=',m);
  • i,b,m,n:word;
  • f:boolean;
  • readln;
  • writeln('Please Enter two N numbers ,n<m ');
  • End.
  • if not (n<m) then write ('Invalid input ! ')
  • b:=b div 10;
  • repeat
  • var a:byte;
  • repeat
  • writeln;
  • b:=i;
  • for i:=n to m do begin
  • Begin