дано четырёхзначное число найти кратно ли четырём творенье его цифр

Дано четырёхзначное число найти кратно ли четырём произведение его цифр

Задать свой вопрос
Светлана Макушова
язык программирования какой?
Руслан Гута
паскаль
1 ответ

program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10
end;
if (b mod 4) = 0 then
   writeln(b,' Kratno 4')
else
    writeln(b,' Ne kratno 4');
readln;
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт