В паскале составить программу: определить делимость…

Question

В паскале составить программу: определить делимость на 3 для четырехзначного числа. (думаю, что надоиспользовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)

Answer 1

33

asd-lucky

10 февраля 2023

var a: 1000… 9999; a1, a2, a3, a4:0… 9; //Цифры четырехзначного числа begin writeln ('Введите четырехзначное число'); readln (a); a1: =a div 1000; a2: =(a mod 1000) div 100; a3: =(a mod 100) div 10; a4: =a mod 10; if (a1+a2+a3+a4) mod 3=0 then writeln (a, ' делится на 3') else writeln (a, ' не делится на 3'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: