Решите сколько сможете! нужно! все на языке с++ в приложении code : : blocks 1.дано целое четырехзначное число. выяснить, является ли оно палиндромом, то есть таким чис- лом, десятичная запись которого читается одинаково слева направо и справа налево. формат входных данных вводится целое четырехзначное число. формат выходных данных выведите "yes если число является палиндромом, и "no"в противном случае. 2.дано целое четырехзначное число. определить, является ли сумма его цифр двузначным числом. формат входных данных вводится целое четырехзначное число. формат выходных данных выведите "yes если сумма цифр введённого числа является двузначным числом, и "no"в про- тивном случае. 3.дано натуральное четырехзначное число. найти наименьшую цифру в числовой записи данного числа. формат входных данных вводится натуральное четырехзначное число. формат выходных данных вывести наименьшую цифру в числовой записи числа. 4.дано натуральное четырехзначное число. определить, образуют ли цифры числа неубывающую последовательность. формат входных данных вводится натуральное четырехзначное число. формат выходных данных вывести "yes если цифры числа образуют неубывающую последовательность, и "no"в против- ном случае. 5.дано натуральное четырехзначное число. определить количество цифр с наибольшим значением в цифровой записи данного числа. формат входных данных вводится натуральное четырехзначное число. формат выходных данных вывести количество цифр с наибольшим значением в цифровой записи данного числа. 6. даны координаты двух полей шахматной доски. координаты клетки - это два числа от 1 до 8: номер столбца и номер строки. одного ли цвета эти клетки на шахматной доске? формат входных данных в первой строке заданы: столбец первого поля, затем строка первого поля, затем столбец второго поля, затем строка второго поля. формат выходных данных вывести сообщение "yes если они одного цвета, и "no иначе. 7.даны координаты левого и правого концов отрезка, а также точка на целочисленной оси. опре- делить, лежит ли точка внутри отрезка или на его границе. формат входных данных в первой строке заданы числа a, b и c - координаты левого, правого концов отрезка и координата точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри отрезка или на его границе, и "no иначе. 8.даны координаты левого нижнего и правого верхнего вершин прямоугольника, а также точка на плоскости. определить, лежит ли точка внутри прямоугольника или на его границе. формат входных данных в первой строке заданы числа x1, y1, x2, y2, x3, y3 - координаты левого нижнего, правого верхнего вершин прямоугольника и точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри прямоугольника или на его границе, и "no- иначе. 9.в один из жарких летних дней петя и его друг вася решили купить арбуз. они выбрали самый большой и самый спелый, на их взгляд. после недолгой процедуры взвешивания весы показали w килограмм. поспешно прибежав домой, изнемогая от жажды, начали делить приобретенную ягоду, однако перед ними встала нелегкая . петя и вася являются большими поклонниками четных чисел, поэтому хотят поделить арбуз так, чтобы доля каждого весила именно четное число килограмм, при этом не обязательно, чтобы доли были равными по величине. сильно устали и хотят скорее приступить к трапезе, поэтому вы должны подсказать им, удастся ли поделить арбуз, учитывая их пожелание. разумеется, каждому должен достаться кусок положительного веса. формат входных данных в первой и единственной строке входных данных записано целое число w (1 ⩽ w ⩽ 100) — вес купленного арбуза. формат выходных данных выведите y es, если смогут поделить арбуз на две части, каждая из которых весит четное число килограмм, и no в противном случае. например, могут поделить арбуз на две части размерами 2 и 6 килограммов соответственно (другой вариант — две части 4 и 4 килограмма).
PascalABC.NET 3.7:
##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)Пояснение:
Используется формула для нахождения суммы первых n членов арифметической прогрессии: , где — первый член прогрессии, — последний член, —разность прогрессии.
sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.Объяснение:
Sub Summa
Dim A As Long, B As Long, Schet As Long, Snech As Long
Dim Razn As Long, i As Long
Rem Тип Long включает целые числа от -2*10^9 до 2*10^9
Input "A = ", A, "B = ", B ' Вводим числа А и В
Schet = 0 ' Сумма четных чисел
Snech = 0 ' Сумма нечетных чисел
If A Mod 2 = 0 Then ' Если А четное
For i = A To B Step 2 ' Перебираем четные числа от А до В
Schet = Schet + i ' Прибавляем к сумме четных чисел
End For
For i = A + 1 To B Step 2 ' Перебираем нечетные числа от А до В
Snech = Snech + i ' Прибавляем к сумме нечетных чисел
End For
Else ' Иначе, если А нечетное
For i = A + 1 To B Step 2 ' Перебираем четные числа от А до В
Schet = Schet + i ' Прибавляем к сумме четных чисел
End For
For i = A To B Step 2 ' Перебираем нечетные числа от А до В
Snech = Snech + i ' Прибавляем к сумме нечетных чисел
End For
End If
Razn = Schet - Snech ' Разность между четной и нечетной суммой
Print Razn ' Выводим разность
End Sub