Дано четырехзначное число. Определить кратно ли оно 3 или 4 одновременно,отдельно выделить числа, оканчивающиеся на ноль. MatLab
10-11 класс
|
вот условие на проверку кратности 3 и 4 без остатка
i mod 3 =0 and i mod 4 =0
Другие вопросы из категории
( Решить с помощью процедуры. )
p.s. внизу моё решение!!!
1. Складываются 1я и 2я, а также 3я и 4я цифры.
2. Полученные два числа записываются друг за другом в порядке убывания(без разделителей).
Определите, какое из перечисленных ниже чисел может быть результатом работы автомата.
1) 68
2) 87
3) 816
4) 186
Объясните почему) Заранее спасибо!
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Дано число, определите является ли оно двухзначным и кратным 2 и 6
P.S. должно решаться через мод
признакам делимости.
program chislo;
uses crt;
var a,b,c,d,e,f,g:integer;
begin
clrscr;
f:=1;d:=0;
writeln('Введите число ');
readln(a);
e:=a;
while e>9 do begin
b:= e mod 10;
f:=f+1;
d:=d+b;
e:= e div 10;
end;
g:=e+d;
writeln('Число ',f,' - значное');
if a mod 2<>0 then writeln('Число нечетное') else writeln('Число четное');
c:=b mod 10;
if (c=0) or (c=5) then writeln ('Число кратно 5') else writeln ('Число не кратно 5');
if (c=0) then writeln('Число кратно 10') else writeln('Число не кратно 10');
if g mod 3=0 then writeln('Число кратно 3') else writeln('Число не кратно 3');
if g mod 9=0 then writeln ('Число кратно 9') else writeln('Число не кратно 9');
end.
кратно ли оно 10.