Другие языки программирования и технологии

Помогите пожалуйста, нужно решить на паскале

10.Дано целое число. Определить:
а) является ли оно чётным;
б) оканчивается ли оно цифрой 7;
в) оканчивается ли оно чётной цифрой. Составное условие не использовать.
Дано двузначное число. Определить:
а) какая из его цифр больше: первая или вторая;
б) одинаковы ли его цифры?
11.Дано двузначное число. Определить:
а) кратна ли трём сумма его цифр;
б) кратна ли сумма его цифр числу A?
12.Дано трёхзначное число. Определить, равен ли квадрат этого числа сумме кубов его цифр.
13.Дано трёхзначное число. Определить:
а) является ли сумма его цифр двузначным числом;
б) является ли произведение его цифр трёхзначным числом;
в) больше ли числа A произведение его цифр;
г) кратна ли пяти сумма его цифр;
д) кратна ли сумма его цифр числу A.
14.Дано трёхзначное число.
а) верно ли, что все его цифры одинаковые?
б) определить, есть ли среди его цифр одинаковые?
15.Дано четырёхзначное число. Определить:
а) равна ли сумма двух первых его цифр сумме двух его последних цифр;
б) кратна ли трём сумма его цифр;
в) кратно ли четырём произведение его цифр;
г) кратно ли произведение его цифр числу A.
СР
Сергей Рудаков
96
15 a
var n,sum:integer;
m: real;
begin
write('n= ');
readln(n);
m:=10000;
while n>0 do
begin
m:=m / 10;
if n > 100 then sum:=sum+ n div trunc(m)
else sum:=sum - n div trunc(m);
n:= n mod trunc(m);
end;
writeln (sum=0);
end.

15 б
var n:integer;
begin
write('n= ');
readln(n);
writeln (n mod 3 = 0)
end.

15 в
var n,i:integer;
begin
readln(n);
i:=0;
while n>0 do
begin
if not odd(n mod 10) then inc(i);
n:= n div 10;
end;
writeln (i>=2);
end.

15 г
var n,i,a:integer;
begin
write('n= ');
readln(n);
write('A= ');
readln(a);
i:=1;
while n>0 do
begin
i:=i*(n mod 10);
n:= n div 10;
end;
writeln (i mod a = 0);
end.
Эльвир Исангильдин
Эльвир Исангильдин
24 309
Лучший ответ
10.
Result:=even(n)
Result:=n mod 10 = 7
Result:=even(n) // только великие казахские преподы могут уловить разницу между четным числом, и числом, оканчивающимся на четную цифру. Лично я - не могу

Result:=n mod 10 > n div 10
Result:=n mod 10 = n div 10

11.
s:=n div 10 + n mod 10; Result:=s mod 3 = 0;
s:=n div 10 + n mod 10; Result:=s mod a = 0;

12.
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; Result:=sqr(n)=a*a*a+b*b*b+c*c*c;

13
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; s:=a+b+c; Result:=Trunc(ln(s)/ln(10))=1;
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; p:=a*b*c; Result:=Trunc(ln(p)/ln(10))=2;
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; p:=a*b*c; Result:=s>AA;
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; s:=a+b+c; Result:=s mod 5 = 0;
a:=n div 100; b:=n mod 100 div 10; c:=n div 10; s:=a+b+c; Result:=s mod AA = 0;

Чой-то устал я. Идея, недеюсь, понятна, продолжай в том же духе.
АЛ
Ангел!!! Любви!!!
80 324
И что? Это всё - элементарные арифметические задачи на уровне начальной школы, каждая из которых решается в одну строчку.
Если ты даже такой детский сад самостоятельно решить не можешь, то что ты вообще делаешь в программировании?
Sandybek Elibai
Sandybek Elibai
94 217
10-я (без пояснений к ответам):
var n:integer; begin readln(n); writeln(not odd(n)); writeln(n mod 10=7); writeln(not odd(n)); end.
АП
Алексей Пантелеев
89 228
Ефим Игнатьев интересно, что произошло с первыми девятью задачами? )))))

Похожие вопросы