Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
Пример
44(10) переведём в двоичную систему
44 делим на 2. частное 22, остаток 0
22 делим на 2. частное 11, остаток 0
11 делим на 2. частное 5, остаток 1
5 делим на 2. частное 2, остаток 1
2 делим на 2. частное 1, остаток 0
1 делим на 2. частное 0, остаток 1
Частное равно нулю, деление закончено. Теперь записав все остатки снизу вверх получим число 101100(2)
Program abc;
var: a,b,c,V:integer
begin
readln(a,b,c);
V:=a*b*c;
writeln(V);
<span>end.</span>
1.Через поле и лесок
К нам примчался голосок.
Он пришел по проводам.
Слышно здесь, сказали – там.
(телефон)
2.Под крышей четыре ножки, А на крыше — суп да ложки. Четыре ноги, а ходить не может.
(стол)
3.На компьютерном столе
Помогает она мне.
Колесиком и кнопкой
Я управляю ловко.
(Мышка)