Program prim3; program prim3




НазваниеProgram prim3; program prim3
Дата конвертации11.05.2013
Размер445 b.
ТипПрезентации

































program prim3;

  • program prim3;

  • var m:set of 0..9;

  • n,o,i:integer;

  • begin write('введите число:');

  • readln(n);

  • m:=[0,1,2,3,4,5,6,7,8,9];

  • while n>0 do

  • begin

  • c:=n mod 10;

  • n:=n div 10;

  • if (c in m) then m:=m-[c]

  • end;

  • writeln('цифры, которых нет в числе:');

  • for i:=0 to 9 do

  • if i in m then

  • write(i,',')

  • end.



Задача. В заданном числовом промежутке ([20;50]∩[150;200]) найти числа, кратные 6, и посчитать их количество.



program mnog8;

  • program mnog8;

  • Const

  • type

  • mn =set of =['0'..'9'];

  • Var

  • bkv:mn;

  • s,w,w1:string[50];

  • i,j:integer;

  • begin write('text:'); readln(s);

  • i:=1; while i<=length(s) do begin

  • w:=''; w1:='';

  • while (i<=length(s)) and (s[i] in bkv) do begin

  • w:=w+s[i]; w1:=s[i]+w1; inc(i) end;

  • if (length(w)>1) and (w=w1) then

  • begin i:=i-length(w); delete(s,i,length(w)) end;

  • inc(i); end; write('new text:'); writeln(s) end.





Похожие:

Program prim3; program prim3 iconProgram a1; program a1; var P,A,B,C: integer

Program prim3; program prim3 iconUndersök vilka program som visas på ryska tv-kanaler. Sök reda på ett program som du vill se från varje kanal

Program prim3; program prim3 iconProgram n1

Program prim3; program prim3 iconProgram

Program prim3; program prim3 icon* Jacobi-1 program */ /* Jacobi-1 program *

Program prim3; program prim3 iconProgram graf; Program graf

Program prim3; program prim3 iconHoliday Program 2005 Techniques of Teaching

Program prim3; program prim3 iconC:\Program Files\Intel\Composerxe-2011 \Documentation\en us\mkl\mkl userguide\ index htm

Program prim3; program prim3 iconScientific Visualization hpc school July 2009, Moscow Tiled Images
Строит изображения со спутников Defense Meteorological Satellite Program на поверхности Земли
Program prim3; program prim3 iconProgram a3
Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку...
Разместите кнопку на своём сайте:
dok.opredelim.com


База данных защищена авторским правом ©dok.opredelim.com 2015
обратиться к администрации
dok.opredelim.com
Главная страница