C++ условие: дано четырёхзначное число. необходимо определить является ли оно палиндромом. примечание: палиндром - это такое число, которое одинаково читается слева направо и справа налево. например, 14541 или 2332. входные данные: на вход даётся натуральное четырёхзначное число. выходные данные: в выходной файл должна быть выведена единица, если число является палиндромом, и ноль, если нет. пример: входные данные / выходные данные 1221 / 1 1234 / 0

Можно использовать и не для четырёхзначных.

#include <iostream>

#include <cstring>

#include <fstream>

using namespace std;

bool check_polindrom(string word)

{

int len = word.length();

for(int i = 0; i < len/2; ++i)

{

 if(word[i] != word[len-i-1])

 {

  return false;

 }

}

return true;

}

int main()

{

   ifstream ifs ("input.txt");

string str;

ifs >> str;

ifs.close();

   ofstream ofs ("output.txt");

   cout<<str;

if(check_polindrom(str))

 ofs<<"1";

else

       ofs<<"0";

ofs.close();

return 0;

}

Работа с файлами также выполнена (файлы input.txt и output.txt поместить в папку со скриптом main.cpp) ©CodeBlocks

1. Короткое современное решение

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=SeqRandom(n,1000, 100000);
  var b:=a.Select(x->x/1000).ToArray; b.Println;
  Writeln('П=',b.Aggregate(1.0,(p,q)->p*q));
  Writeln('Max=',b.Max)
end.

Пример
n= 10
64.006 47.819 87.225 6.856 32.112 93.963 11.053 50.93 18.959 14.785
П=871460676775803
Max=93.963

2. А так (примерно) учат в большинстве школ

const
  nn=1000; // предел для кол-ва элементов
var
  n,i:integer;
  a:array[1..nn] of real;
  max,p:real;
begin
  Write('n='); Read(n);
  p:=1;
  max:=0; // меньше меньшего
  for i:=1 to n do
    begin
    a[i]:=(Random(99001)+1)/1000;
    Write(a[i],' ');
    p:=p*a[i];
    if a[i]>max then max:=a[i]
    end;
  Writeln;
  Writeln('П=',p);
  Writeln('Max=',max)
end.

Const x0=0; xn=6; h=0.2;
var x,y:real; i,n:integer;
begin
n:=round((xn-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
 begin
 x:=x+h;
 y:=cos(x/3+0.3);
 writeln(x:4:1,y:8:3);
 end;
end.

Результат:
 0.0   0.955
 0.2   0.934
 0.4   0.908
 0.6   0.878
 0.8   0.844
 1.0   0.806
 1.2   0.765
 1.4   0.720
 1.6   0.672
 1.8   0.622
 2.0   0.568
 2.2   0.512
 2.4   0.454
 2.6   0.393
 2.8   0.331
 3.0   0.267
 3.2   0.203
 3.4   0.137
 3.6   0.071
 3.8   0.004
 4.0  -0.062
 4.2  -0.129
 4.4  -0.195
 4.6  -0.260
 4.8  -0.323
 5.0  -0.386
 5.2  -0.446
 5.4  -0.505
 5.6  -0.561
 5.8  -0.615
 6.0  -0.666