Двом дівчаткам уві сні ангел порадив помиритися.третій дівчинці він нагадав про не вивчену табличку множення Маряна та Надійка почули різні поради.Надійка та Оленка теж різні. що порадив ангел Надійці?
Var i,n,m: integer; a: set of 0..9; b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9]; c: array[1..200] of integer; begin write(' N = '); readln(n); Randomize; for i:=1 to n do begin c[i]:=Random(255); write(c[i],' '); end; writeln; a:=[]; for i:=1 to n do begin m:=c[i]; while (m>0) do begin a:=a+[(m mod 10)]; m:=m div 10; end; end; b:=b-a; if b<>[] then begin write('в записи чисел массива не содержатся цифры : '); foreach i in b do write(i,' '); end else writeln('встречаются все цифры'); end.
Program n1; uses crt; const nn=1000; var m: array[1..nn,1..nn] of integer; n,i,j: integer; s: real; begin clrscr; randomize; //Определяем размеры массива writeln('Введите размерность'); readln(n); //Заполняем массив рандомными числаслами for i:=1 to n do for j:=1 to n do m[i,j]:=random(100)-50; //Выводим таблицу(массив) на экран for i:=1 to n do begin for j:=1 to n do write(m[i,j]:4); writeln; end; //Считаем среднее арифметическое столбцов и выводим номера for j:=1 to n do begin s:=0; {Обнуляем переменную перед началом каждого вложенного цикла} for i:=1 to n do begin s:=s+m[i,j]; {Считаем сумму элементов столбца} end; s:=s/n; {Считаем среднее арифметическое} if s<0 then write(j:3); {Проверяем условие задачи} end; end.
a: set of 0..9;
b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];
c: array[1..200] of integer;
begin
write(' N = ');
readln(n);
Randomize;
for i:=1 to n do
begin
c[i]:=Random(255);
write(c[i],' ');
end;
writeln;
a:=[];
for i:=1 to n do
begin
m:=c[i];
while (m>0) do
begin
a:=a+[(m mod 10)];
m:=m div 10;
end;
end;
b:=b-a;
if b<>[] then
begin
write('в записи чисел массива не содержатся цифры : ');
foreach i in b do write(i,' ');
end
else
writeln('встречаются все цифры');
end.