ответ: решение на Паскале.
№1
var
n: integer;
begin
write('Введите двузначное число=');
readln(n);
if n mod ((n mod 10) + (n div 10)) = 0 then
writeln('да, делится')
else
writeln('нет, не делится');
end.
№2
var
a: integer;
begin
write('Введите число: ');
readln(a);
if a div 100 = a mod 10 then
write('Палиндром')
else
write('Не палиндром');
end.
1)
Program chetnost;
Uses Crt
const arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }
{туда напишешь любые целые}
{которые препод укажет}
var i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to 9 do sum:=sum+arr[i];
if (sum mod 2) =0 then writeln('Их сумма чётное число ')
else writeln('Их сумма нечётное число ')
end.
2) Program Nabor;
Uses Crt
const n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }
const n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }
{туда напишешь любые целые}
{которые препод укажет}
var sum1,sum2,i: integer;
begin
clrscr;
sum1:=0; sum2:=0;
for i:=1 to 8 do
begin
sum1:=sum1+n1[i];
sum2:=sum2+n2[i]
end;
if (sum1=sum2) writeln('Стоимость наборов одинакова ');
if (sum1<sum2) then writeln('Первый набор дешевле ')
else writeln(' Второй набор дешевле ')
end.
program raf105;
uses robot;
var l,d,r,u: boolean;
begin
task('if8');
l:= wallfromleft;
d:= wallfromdown;
r:= wallfromright;
u:= wallfromup;
if l
then begin right; paint; right; paint;
if freefromright
then begin right; paint; end
end;
if d
then begin up; paint; up; paint;
if freefromup
then begin up; paint; end
end;
if r
then begin left; paint; left; paint;
if freefromleft
then begin left; paint; end
end;
if u
then begin down; paint; down; paint;
if freefromdown
then begin down; paint; end
end;
end.
if9program raf105;
uses robot;
var l,r: boolean;
begin
task('if9');
right; r:= wallfromdown;
left;
left; l:= wallfromup;
right;
if r and l
then begin up; paint; down; down; paint; up; end
else paint;
end.
if10program raf105;
uses robot;
var l,r: boolean;
begin
task('if10');
right; r:= cellispainted;
left;
left; l:= cellispainted;
right;
if r or l
then begin up; paint; end
else paint;
end.
1:
inp = [int(n) for n in input()]
if inp == list(reversed(inp)):
print("Полиндром")
2:
inp = [int(n) for n in input()]
if int("".join([str(n) for n in inp])) % sum(inp):
print("Делится на сумму своих цифр.")