В паскале составить программу:
определить делимость на 3 для четырехзначного числа.
(думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)
В паскале составить программу:
определить делимость на 3 для четырехзначного числа.
(думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.