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
Var n : integer;
begin
readln (n);
if (n > -100) and (n < 100) then write ('Это число двузначное');
if (n > -1000) and (n < 1000) then write (Это число трёхзначное);
end.
Var a, b, rezultat: integer;
begin
writeln(`Введите значения a и b:`);
readln(a, b);
if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b
writeln(rezultat);
end.
Экран дисплея. Ну нпр картинка выводится на экране.
Ответ: В