6
закрасить
нц 3 раза
влево; закрасить
кц
нц 4 раза
вниз; закрасить
кц
нц 2 раза
вправо; закрасить
кц
нц 2 раза
вверх; закрвсить
кц
влево; закрасить
1) 48(10)= 110000(2)= 60(8)= 30(16);
2)35(16)=53(10); 35(8)=29(10)
Var
n,i,a:integer;
p:longint;
begin
Write('Введите четырехзначное число: '); Read(n);
Write('Введите число для проверки кратности: '); Read(a);
p:=1;
for i:=1 to 3 do
begin
p:=p*(n mod 10);
n:=n div 10
end;
p:=p*n;
if (p mod a)=0 then Writeln('Число кратно ',a)
else Writeln('Число не кратно ',a)
end.
<em><u>Тестовое решение:</u></em>
Введите четырехзначное число: 3673
Введите число для проверки кратности: 7
Число кратно 7
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:int64;
Read(n);
var s:='';
var c:=Ord('0');
while n>0 do begin
s:=Chr(c+n mod 2)+s;
n:=n shr 1
end;
Writeln(s,'(2)')
end.
<u>Пример</u>
24523
101111111001011(2)