Const n=8; var a:array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:4); end; writeln; end; write('k = '); readln(k); s:=0; for j:=1 to n do s:=s+a[k,j]; writeln('s = ',s); dmin:=999999; smin:=999999; for i:=1 to n do if i<>k then begin s1:=0; for j:=1 to n do s1:=s1+a[i,j]; writeln('s',i,' = ',s1); if abs(s1-s)<dmin then begin dmin:=abs(s1-s); smin:=s1; si:=i; end; end; writeln('Номер строки = ',si,', smin = ',smin); end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString.ToUpper; // к верхнему регистру var (kO,kE):=(0,0); // счетчики for var i:=1 to s.Length do case s[i] of 'О':ko+=1; 'Е':kE+=1 end; if kO>kE then Writeln('Буква "О" встречается чаще') else if kO<kE then Writeln('Буква "Е" встречается чаще') else Writeln('Буквы "О" и "Е" встречаются одинаковое число раз') end.
Пример Если бы Ольга захотела, она бы училась лучше Елены Буква "Е" встречается чаще
1 + 2 + 8 + 32 + 512 = 555