М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Princessa607
Princessa607
06.07.2022 20:39 •  Информатика

Вывести трехзначное число. определить, является ли оно палиндромом

👇
Ответ:
10154
10154
06.07.2022
VB.
Dim i As String

i = InputBox("Введите число")
If i = StrReverse(i) Then MsgBox("Ура! Число " & i & " является палиндромом.")
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535

Pascal.
 var n, m, p: word
 begin write('Введите число:');
 readln(n);

m := n; p := 0;

 while m > 0 do begin
      p := p * 10 + m mod 10;
      m := m div 10;
 end;

if n = p then writeln("Ура! Число  является палиндромом.")
readln;
end.


Жми Лучший
4,6(25 оценок)
Открыть все ответы
Ответ:
MATVEI235
MATVEI235
06.07.2022
Var
 K:array[1..2,1..13]  of integer;
 i,j,ind,x,y:integer;
 MAX:real;
 function RAST(x1,x2,y1,y2:integer):real;
  begin
   RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
begin
 MAX:=-2*sqr(-10-1);
 randomize;
 writeln('Исходные точки:');
 for j:=1 to 13 do
  begin
    writeln('Точка № ',j,', с координатами(X,Y)');
    for i:=1 to 2 do 
      begin
        K[i,j]:=random(110) - 10;
        write(K[i,j],'  ');
      end;
    writeln;
   end;
 for i:=1 to 13 do
   if RAST(0,K[1,i],0,K[2,i])>MAX
    then
      begin
         MAX:=RAST(0,K[1,i],0,K[2,i]);
         x:=K[1,i];
         y:=K[2,i];
         ind:=i;
      end;
writeln('Номер точки: ',ind,'  Координаты: ',x,' ; ',y);
end.
  
   

7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор
4,4(83 оценок)
Ответ:
Otlichnica999
Otlichnica999
06.07.2022

def process(array):

result = []

for i in range(1, len(array)-1):

 if  (array[i] < 0 and array[i-1] < 0) or \

  (array[i] < 0 and array[i+1] < 0) or \

  (array[i] > 0 and array[i-1] > 0) or \

  (array[i] > 0 and array[i+1] > 0):

  return 'YES'

return 'NO'

 

def main():

N = int(input())

assert N>=1 and N<= 10000

input_array = [int(i) for i in input().split()]  

assert len(input_array) == N  

print(process(input_array))

if __name__ == '__main__':

main()

Объяснение:

Протестировано на стандартном вводе/выводе + один доп тест

Доп тест:

Ввод:

5

1 2 -2 3 -4

Вывод:

YES

P.S Сайт ломает Python-код. Ниже приложен скриншот исходного кода


дан массив, состоящий из целых чисел. напишите программу, которая определяет, есть ли в массиве пара
4,7(68 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ