В Access используются три создания таблиц: путем ввода данных (by entering data), с Конструктора таблиц (in Design view) и с Мастера создания таблиц (by using wizard). Для каждого из этих существует специальный ярлык новых объектов в списке таблиц (рис. 2.3).
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
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; }
В Access используются три создания таблиц: путем ввода данных (by entering data), с Конструктора таблиц (in Design view) и с Мастера создания таблиц (by using wizard). Для каждого из этих существует специальный ярлык новых объектов в списке таблиц (рис. 2.3).