Получаем число:
4756(8)<span> = 100111101110(</span>20
Полученное число переведем в 16-у систему счисления.
Разделим исходный код на группы по 4 разряда.
100111101110()2<span> = 1001 1110 1110 (</span><span>2)
</span>Получаем число:
<span>1001 1110 1110 (</span>2)<span> = 9EE(</span><span>16)</span>
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, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var lsm:=ReadInteger('Укажите длину в см:');
if lsm<100 then Writeln(lsm,' см')
else begin
var lm:=lsm div 100;
Write(lsm div 100,'м');
lsm:=lsm mod 100;
if lsm<>0 then Write(' ',lsm,'cм');
Writeln
end
end.
<u>Примеры</u>
Укажите длину в см: 1623
16м 23cм
Укажите длину в см: 1200
12м
Укажите длину в см: 38
38 см