Предмет: Информатика,
автор: tkachukeva
СРОЧНОООО!!!ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!!! дано четырехзначное число.определить кратно ли четырем произведение его цифр
Ответы
Автор ответа:
0
как-то так
var
x:integer;
begin
read(x);
if ((x mod 10)*((x div 10)mod 10)*(x div 1000)*((x div 100) mod 10)) mod 4=0 then
write ('кратно')
else
write('учи матчасть');
end.
Похожие вопросы
Предмет: Геометрия,
автор: 12345627765
Предмет: Математика,
автор: viktoria62355
Предмет: Математика,
автор: milki0000
Предмет: Физика,
автор: Nastya79687
Предмет: Литература,
автор: Аноним