Никита (shockpanel)
Pascal / Java разработчик, помогу с программирование быстро и качественно.
Область консультирования
Программирование
Образование
Время консультирования
Понедельник — суббота.
Опыт
4 года.
Рассказать друзьям
Понравился эксперт? Порекомендуй друзьям в соцсетях.
Изображение не видно, качество плохое
12.06.17
ответ эксперта
CLS
RANDOMIZE TIMER
FOR i = 1 TO 5
A(i) = i
NEXT i
FOR i = 6 TO 10
A(i) = RND * 21 — 10
NEXT i
P = 1
PRINT «MASS(10): »;
FOR i = 1 TO 10
PRINT " "; A(i);
P = P * A(i)
IF A(i) > 0 THEN
k = k + 1
END IF
NEXT i
PRINT
PRINT «P = »; P
PRINT «k = »; k
END
RANDOMIZE TIMER
FOR i = 1 TO 5
A(i) = i
NEXT i
FOR i = 6 TO 10
A(i) = RND * 21 — 10
NEXT i
P = 1
PRINT «MASS(10): »;
FOR i = 1 TO 10
PRINT " "; A(i);
P = P * A(i)
IF A(i) > 0 THEN
k = k + 1
END IF
NEXT i
PRINT «P = »; P
PRINT «k = »; k
END
12.06.17
ответ эксперта
uses crt;
var x, xx, c, x1: integer;
write('x='); readln(x);
xx:=x;
while x< >0 do
begin
c:=x mod 10;
x:=x div 10;
x1:=x1*10+c;
end;
If x1=xx then writeln(xx, ' — палиндром')
else writeln(xx, ' — не палиндром');
end.
12.06.17
ответ эксперта
У эксперта Никита (shockpanel) пока что нет блогов
