Program PR1; uses crt; var mas:array[1..10,1..10] of integer; i,j,b:integer; Begin clrscr; randomize; for i:=1 to 10 do for j:=1 to 10 do mas[i,j]:=random(10); for i:=1 to 10 do for j:=1 to 10 do begin gotoxy(j,i); write(mas[i,j]); end; b:=0; for i:=1 to 10 do for j:=1 to 10 do if (j=i) and (mas[i,j]=0) then b:=b+mas[i,j]; writeln; writeln(b); end.
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
Не самый рациональный метод решения, но как говорится чем смог тем
var a,b,c,x,kc,kn,k1,k2:integer; begin kc:=1; kn:=1; k1:=0; k2:=0; a:=0; b:=0; writeln('Введите число x'); read(x); while x>0 do begin c:=x mod 10; if c mod 2=0 then begin inc(k1); a:=a+c*kc; kc:=kc*10; end; if c mod 2<>0 then begin inc(k2); b:=b+c*kn; kn:=kn*10; end; x:=x div 10; end; if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); writeln(a,' ', b); end.
Program PR1;
uses crt;
var mas:array[1..10,1..10] of integer;
i,j,b:integer;
Begin
clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do mas[i,j]:=random(10);
for i:=1 to 10 do
for j:=1 to 10 do begin
gotoxy(j,i);
write(mas[i,j]);
end;
b:=0;
for i:=1 to 10 do
for j:=1 to 10 do if (j=i) and (mas[i,j]=0) then b:=b+mas[i,j];
writeln;
writeln(b);
end.