Question

Срочно!!!!!!!!!!
написать в Visual Basic

Самостоятельно написать программу, которая определяет - делится ли без остатка трехзначное натуральное число на произведение своих цифр.

​

Answer 1

Ответ:

program 1;

a:integer;

Begin

write ('a= ');

readln (a);

if (a mod 3=0) then

writeln ('да делится) ;

else

writeln('не делится');

readln;

end.