Никита

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
12.06.17
ответ эксперта

uses crt;
var x, xx, c, x1: integer;

begin clrscr;
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
ответ эксперта
Никита
Рейтинг: 72
0 отзывов
0% положительных
4 ответов клиентам
0 лучших
от 50 до 250 руб.
стоимость консультации
30 минут
консультация длится
1 год на сайте
Заходил 1 год назад