Дано натуральное трехзначное число. Проверить является ли оно палиндромом (читается одинакового слева на право и с права налево). Если не является - вывести ближайшее следующее число палиндром. Формат ввода:

На первой строке - натуральное трехзначное число.

Формат вывода:

Если условие выполнено - YES, если нет - то натуральное число.

Пример входных данных

432
Пример выходных данных

434
Написать на Паскале

👇

Увидеть ответ

Ответ:

2005161718

29.12.2022

var x:integer;

begin

readln(x);

if (x mod 10)=(x div 100) then begin writeln('YES');exit;end

else while x mod 10<>x div 100 do x:=x+1;

writeln(x);

end.

4,5(16 оценок)

Ответ:

233423

29.12.2022

ответ:Привет,я не знаю Паскаль,но объяню логику решения. Решение максимально простое и не требует каких-либо углубленных знаний.

Объяснение:

короч. Для каждой цифры ты берешь переменную(x; y; z) дальше пишешь,если x=z,то это число является палиндромом,если x≠z,то начинаешь прибавлять по единице к z, если z = 10 то пусть будет равно 0,дальше прибавляешь к x +1 и делаешь,то же самое с z и все. реализовать просто используя несколько циклов и все. Удачи

Есть вообще капец творческое решение. ты просто из x-z,если число положительное то прибавляешь в z и все,если 0,то тут пишешь yes,если отрицательное,например, -3,то отнимаешь от x ,тоесть x--3=x+3 и все

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

4,8(81 оценок)

Открыть все ответы

Ответ:

код127

29.12.2022

1. Помещаем нижеследующий текст в файл UniSum.pas, который должен находиться в директории PABCWork.Net

// PascalABC.NET 3.0, сборка 1128
unit UniSum;

interface

Function UniSumMatrix(a:array[,] of integer):integer;
Function UniSumMatrix(a:array[,] of real):real; overload;

implementation

Function UniSumMatrix(a:array[,] of integer):integer;
begin
Result:=0;
for var i:=0 to Length(a,0)-1 do
    for var j:=0 to Length(a,1)-1 do
      if a[i,j]>0 then Result+=a[i,j]
end;

Function UniSumMatrix(a:array[,] of real):real; overload;
begin
Result:=0;
for var i:=0 to Length(a,0)-1 do
    for var j:=0 to Length(a,1)-1 do
      if a[i,j]>0 then Result+=a[i,j]
end;

end.

2. Создаем новый файл и помещаем в него тестовую программу

// PascalABC.NET 3.0, сборка 1128
uses
UniSum;

begin
var m:=ReadInteger('Число строк в матрице:');
var n:=ReadInteger('Число столбцов в матрице:');
var R:=MatrixRandom(m,n,-10,20);
Writeln('Сгенерированная матрица');
for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(R[i,j]:4);
    Writeln
    end;
Writeln('Сумма положительных элементов: ',UniSumMatrix(R));
m:=ReadInteger('Число строк в матрице:');
n:=ReadInteger('Число столбцов в матрице:');
var S:=MatrixRandomReal(m,n,-15,32);
Writeln('Сгенерированная матрица');
for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(S[i,j]:7:2);
    Writeln
    end;
Writeln('Сумма положительных элементов: ',UniSumMatrix(S):0:2)
end.

Тестовое решение:
Число строк в матрице: 4
Число столбцов в матрице: 3
Сгенерированная матрица
-10 15 17
-8 -8   7
   2 -9   0
-1   5 17
Сумма положительных элементов: 63
Число строк в матрице: 5
Число столбцов в матрице: 6
Сгенерированная матрица
   0.74 -7.30 15.97   5.01   1.55 12.02
-3.98 -9.21   3.35 -7.95 -14.10 31.21
13.75 -5.82 -5.34 13.33 14.61 15.76
-5.30 14.65   2.60 20.26 27.30 10.81
11.60 27.43   5.61 -10.29 -10.48 26.61
Сумма положительных элементов: 274.18

Как видно, программа действительно универсальная: она позволяет работать с матрицами разных размеров и даже разного типа данных.

4,5(49 оценок)

Ответ:

dontsovaelizav

29.12.2022

// PascalABC.NET 3.0, сборка 1128
begin
var m:=ReadInteger('Число строк:');
var n:=ReadInteger('Число колонок');
var a:=MatrixRandom(m,n,-10,20);
Writeln('Сгенерированный массив');
for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
Writeln('Найденные суммы');
for var i:=0 to m-1 do begin
    var avg:=0.0;
    for var j:=0 to n-1 do avg+=a[i,j];
    avg/=n;
    var s:=0;
    for var j:=0 to n-1 do
      if a[i,j]>avg then s+=a[i,j];
    Write(s,' ')
    end;
Writeln
end.

Тестовое решение:
Число строк: 5
Число колонок 7
Сгенерированный массив
19 14 -6 -8   2 -3 11
   2 -8 -9 18   6 -6 -9
-5 -1   2 -6 -6 15 -4
13 19   2   6 -10   5 15
13   1   0 -2 -8 20 18
Найденные суммы
44 26 17 47 51

4,4(71 оценок)

Это интересно:

Кулинария-и-гостеприимство

19.02.2020

Как приготовить сливочную яичницу болтунью...

Стиль-и-уход-за-собой

25.06.2021

Как наносить тональную крем-пудру: лучшие способы...

Здоровье

25.04.2020

Как вывести токсины из легких с помощью натуральных средств...

Стиль-и-уход-за-собой