Дано четырехзначное число. определить: кратно ли произведение его цифр числу а.

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. тестовое решение: введите четырехзначное число: 3673 введите число для проверки кратности: 7 число кратно 7

конструктор автомобилей: проектирования

писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там

бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то

врач: для различных анализов 

: те же нужные конференции, призентации и все такое делается на компьютере