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; }
Procedure Dec2Oct(n:longint); { Перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i:integer; begin s := ''; while n > 0 do begin s := alpha[(n mod 8) + 1] + s; n := n div 8 end; for i:=Length(s) to 9 do s:='0'+s; Write(s) end;
{ Использование } var x:longint; begin Write('Введите десятичное число: '); Read(x); Write('В восьмеричной системе счисления: '); Dec2Oct(x); Writeln end.
Тестовое решение: Введите десятичное число: 1234567 В восьмеричной системе счисления: 0004553207
#include <stdio.h>
#include <stdlib.h>
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;
}