(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
#include <windows.h>
#include <conio.h>
#include <math.h>
#include<iostream>
using namespace std;
int main()
{
double m=0;
for (int n = 1;n < 1000;n++) {
m += pow(n, 2) - 2 * n*(n+1) + pow(n+1, 2);
}
cout << m;
_getche();
return 0;
}
1) Переводим в двоичную систему счисления, деля число целочисленно на 2 до тех пор, пока не получится 0.
Записываем остатки от деления в обратном порядке.
1100000110011 - ответ
2)Разбиваем двоичное число на тройки, начиная с младшего разряда: [001][100][000][110][011]
Каждую тройку переводим в восьмиричную систему счисления и записываем "как есть": [1][4][0][6][3].
14063 - ответ
3)Разбиваем двоичное число на четверки, начиная с младшего разряда: [0001][1000][0011][0011]
Переводим каждую четверку в шестнадцатиричную сисиему счисления и записываем "как есть": [1][8][3][3].
1833 - ответ.
Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.<span>
</span>