Дан фрагмент электронной таблицы. Какое наибольшее целое число должно быть записано в ячейке A1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала рисунку? Известно, что все значения диапазона, по которым построена диаграмма, положительные.
Const V: String = '01'; Function DecToN(A: Longint; D: Byte) : String; Begin If A > D - 1 then DecToN := DecToN(A div D, D) + V[(A mod D) + 1] else DecToN := V [A + 1]; end;
Function NToDec(A: String; D: Byte): Longint; Begin If Length(a) > 0 then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D) else NToDec := 0; end;
Var F: String; Begin Write('Входной файл Input.txt: '); Readln(F); If NToDec(F,2) mod 7 = 0 then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2)) else Writeln('Выходной файл Output.txt: 0'); end.
Const V: String = '01';
Function DecToN(A: Longint; D: Byte) : String;
Begin If A > D - 1
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1]
else DecToN := V [A + 1];
end;
Function NToDec(A: String; D: Byte): Longint;
Begin
If Length(a) > 0
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)
else NToDec := 0;
end;
Var F: String;
Begin
Write('Входной файл Input.txt: '); Readln(F);
If NToDec(F,2)
mod 7 = 0
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))
else Writeln('Выходной файл Output.txt: 0');
end.
#include <iostream>
#include <string>
bool is_palindrome(const std::string& s) {
std::string r(s);
std::reverse(r.begin(), r.end());
return s == r;
}
int main() {
std::string s1,s2;
setlocale(LC_ALL, "Russian");
std::cout << "Введите число 1: ";
std::getline(std::cin, s1);
std::cout << "Введите число 2: ";
std::getline(std::cin, s2);
if (is_palindrome(s1)|| is_palindrome(s2))
std::cout << "Одно из введенных чисел является палиндромом " << std::endl;
else
std::cout << "Ни одно из введенных чисел не является палиндромом " << std::endl;
return 0;
}