Определить, является ли натуральное число n (n<=9999) палиндромом

19.05.2009, 21:01. **Показов** 2784. **Ответов** 2

Студворк — интернет-сервис помощи студентам

4. Определить, является ли натуральное число n (n<=9999) палиндромом (перевертышем) с учетом четырех цифр, например, 2222, 6116, 0440 и т.п.
п.с Решите пжл))

Добавлено через 3 минуты 55 секунд
11. Подсчитать максимальное количество подряд стоящих элементов логического массива, имеющих значение TRUE.
12. Вычислить произведение двух прямоугольных матриц
еще вот эти)) завтра сдать надо.. ПЛЗ

Добавлено через 1 минуту 15 секунд
если можно с комментариями,преподователь требует(

Добавлено через 49 секунд
Заранее благодарен ..=)

@Vzik · 20.05.2009, 16:18

Наверно уже поздно... вот 12 задача!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Uses crt;
type
 TElem=integer;
const
 Count = 3; 
var
 Mat1, Mat2,                                     
 ResMat1 : array[1..Count, 1..Count] of TElem; 
 i, x, y, R : integer;
 flag : boolean;
 
begin
 Writeln('Ввод первой матрицы (целые числа)');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat1[', x, ',', y,'] : ');
   Readln(Mat1[x, y]);
  end;
 Writeln('Ввод второй матрицы ');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat2[', x, ',', y,'] : ');
   Readln(Mat2[x, y]);
  end;
 for y := 1 to count do 
  for x := 1 to Count do 
  begin
   R := 0;                          
   for i := 1 to Count do           
    r := R + mat1[i, y]*Mat2[x, i]; 
   ResMat1[x, y] := R;              
 end;
 Writeln('AxB='); 
 for y := 1 to Count do
 begin
  for x := 1 to Count do
   Write(ResMat1[x, y]:4);
  Writeln;
readkey;
 end;
END.

@DarkPrinc · 21.05.2009, 13:07

Помогите плиз и мне:
1). В одномерном массиве состоящем из 25 вещественных элементов вычислить:
Сумму модулей элементов массива расположенных после минимального по модулю элемента. Упорядочить элементы массива по убыванию модулей.
2). Задана матрица 10х10. Найти количество отрицательных элементов в тех строках, которые содержат хотя бы 1 нулевой элемент.
3). Третья задача с рисунком. Вычислить и вывести на экран в виде таблицы значения функции заданной графически от Х начальная до Х конечная с шагом до Х. Интервал и шаг задать таким образом, что бы проверить все ветви функции. Снабдить заголовком и шапкой.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

bilingua

	Определить, является ли натуральное число n (n<=9999) палиндромом 19.05.2009, 21:01. Показов 2784. Ответов 2 Метки нет (Все метки) 4. Определить, является ли натуральное число n (n<=9999) палиндромом (перевертышем) с учетом четырех цифр, например, 2222, 6116, 0440 и т.п. п.с Решите пжл)) Добавлено через 3 минуты 55 секунд 11. Подсчитать максимальное количество подряд стоящих элементов логического массива, имеющих значение TRUE. 12. Вычислить произведение двух прямоугольных матриц еще вот эти)) завтра сдать надо.. ПЛЗ Добавлено через 1 минуту 15 секунд если можно с комментариями,преподователь требует( Добавлено через 49 секунд Заранее благодарен ..=)

@DarkPrinc 0 / 0 / 0 Регистрация: 21.05.2009 Сообщений: 3
	21.05.2009, 13:07
	Помогите плиз и мне: 1). В одномерном массиве состоящем из 25 вещественных элементов вычислить: Сумму модулей элементов массива расположенных после минимального по модулю элемента. Упорядочить элементы массива по убыванию модулей. 2). Задана матрица 10х10. Найти количество отрицательных элементов в тех строках, которые содержат хотя бы 1 нулевой элемент. 3). Третья задача с рисунком. Вычислить и вывести на экран в виде таблицы значения функции заданной графически от Х начальная до Х конечная с шагом до Х. Интервал и шаг задать таким образом, что бы проверить все ветви функции. Снабдить заголовком и шапкой. Миниатюры 0

Определить, является ли натуральное число n (n<=9999) палиндромом

Решение