Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

СРОЧНОООО!!!ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!!! дано четырехзначное число.определить кратно ли четырем произведение его цифр

Ответ оставил Гость

Как-то такvarx:integer;beginread(x);if ((x mod 10)*((x div 10)mod 10)*(x div 1000)*((x div 100) mod 10)) mod 4=0 thenwrite (кратно)elsewrite(учи матчасть);end.