М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
murka280705
murka280705
27.11.2022 23:39 •  Информатика

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

👇
Ответ:
viktoria2206
viktoria2206
27.11.2022

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


C++ условие: дано четырёхзначное число. необходимо определить является ли оно палиндромом. примечани
4,5(74 оценок)
Ответ:
kurbatovmaximp08xa1
kurbatovmaximp08xa1
27.11.2022

#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

4,5(36 оценок)
Открыть все ответы
Ответ:
наст83
наст83
27.11.2022
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.
4,8(100 оценок)
Ответ:
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
4,6(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ