var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m); for i:=1 to n do for j:= 1 to m doread(a[i,j]); j:=0; for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ; end else begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end; for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.
int sover (int n) { int sum = 0; for (int i = 1; i<=n/2; i++) if (n%i==0) sum+=i; if (sum==n) return 1; else return 0; } int main() { int n; printf ("N = "); scanf ("%d",&n); if (sover(n)==1) printf ("Sovershennoe"); else printf ("Ne sovershennoe"); printf("\n"); system ("PAUSE"); return 0; }
2) #include <stdio.h> #include <stdlib.h>
int main() { for (int i = 1; i<=5; i++) { for (int j = 1; j<=5-i+1; j++) printf ("%d ",5+i-1); printf ("\n"); } system ("PAUSE"); return 0; }
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
end
else
begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.