Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>
Var x: integer;
begin
readln(x);
writeln(x*x*x*x*x*x*x*x*x*x*x*x*x*x*x);
end.
Однажды в одной маленькой комнате жили кровать, стол , стул , ковер , шкаф и монитор . Да вот только была еще мышка но с ней не дружили .Она всегда была одна . Однажды она загрустила . ее у видел монитор и сказал ,
- Что ты горюешь мышка?
- Никто со мной не дружит , не с кем мне дружить я слишком маленькая .
- Хочешь я буду твоим другом?
- Ты же большой . А я маленькая и ненужненькая .
- Без разницы маленькая ты или большая дружбе нету предела
-Правда?
-Конечно
С тех пор монитор и мышка были лучшими друзьями
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
CBA - не подходит, так как на третьем месте стоит A;
EED - подходит;
AED - подходит;
CEC - подходит;
EBB - подходит;
BAE - не подходит, так как на первом месте стоит B;
CEA - не подходит, так как на третьем месте стоит A;
ABE - подходит;
CBD - подходит;
Ответ: 6 цепочек.
