Регистрация Спросить otvet5GPT
rlicSosanex
23.05.2021 17:00
Информатика
Есть ответ 👍

Решить, сколько ! (паскаль) 1)дано целое четырехзначное число. выяснить, является ли оно палиндромом, то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево. 2)дано целое трехзначное число. определить, равен ли квадрат этого числа сумме кубов его цифр. 3)дано целое трехзначное число. определить есть ли среди его цифр одинаковые 4)дано целое четырехзначное число. определить, равна ли сумма двух его первых цифр сумме двух его последних цифр. 5) даны три целых числа. определить, имеется ли среди них хотя бы одна пара равных между собой чисел. формат входных данныx входной файл содержит три целых числа через пробел. формат выходных данныx выведите 'yes' если это так, и 'no' в противном случае.

136
225
Посмотреть ответы 2

Ответы на вопрос:

mamatatobaba10
mamatatobaba10
4,6(59 оценок)

1

program zadanie1;

var i,n: integer;

a: array[1..4]of integer;

begin

readln(n);

a[1]: =round(int(n/1000));

a[2]: =round(int(n/;

a[3]: =round(int(n/-a[2];

a[4]: =n-a[1]-a[2]-a[3];

if (a[1]: =a[4]) and (a[2]: =a[3]) and (a[3]: =a[2]) and (a[4]=a[1]) then writeln('полином');

end;

 

2

program zadanie2;

var i,n: integer;

a: array[1..3]of integer;

 

function kub(a): integer; begin kub: =a*a*a; end;

 

begin

readln(n);

a[1]: =round(int(n/1000));

a[2]: =round(int(n/;

a[3]: =n-a[1]-a[2]-a[3];

if n*n=kub(a[1])+kub(a[2])+kub(a[3]) then writeln('равенство');

end;

ApostalVooDoo
ApostalVooDoo
4,4(84 оценок)
Var ar : array [1..100] of integer; i, pluscount,minuscount,zerocount : integer; begin readln(n); -считываем число элементов массива(если оно дано, я не знаю) for i : = 1 to n do begin read(ar[i]);   - считываем элемент массива, заносим его в массив if (ar[i] > 0) then pluscount : = pluscount+1; -если > 0 -> увел. счетчик пол.чисел if (ar[i] < 0) then minuscount : = minuscount+1; -если < 0 -> увел. счетчик отр.чисел if (ar[i] = 0) then zerocount : = zerocount+1; -если =0 -> увел. счетчик нулей end; writeln('в массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.'); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS