popovamelanaliceysi

14.10.2020 19:31

Информатика

Есть ответ 👍

Написать программу c ++ назовем число палиндромом, если оно не меняется при перестановке его цифр в обратном порядке. напишите программу, которая по заданному числу k выводит количество натуральных палиндромов, не превосходящих k. входные данные: задано единственное число k (1 < = k < = 100000). выходные данные: необходимо вывести количество натуральных палиндромов, не превосходящих k. примеры: входные данные 1 выходные данные 1 входные данные 100 выходные данные 18

167

346

Посмотреть ответы 3

Ответы на вопрос:

Будда427

Информатика

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

#include < iostream>

#include < string>

#include < algorithm>

bool p(int value)

{

std: : string left = std: : to_string(value);

std: : reverse(left. left.;

std: : string right = std: : to_string(value); ;

return left == right;

}

int main()

{

int n;

std: : cin > > n;

int count = 0;

for (int i = 1; i < = n; ++i)

{

if (p(i))

{

count++;

}

std: : cout < < "count palindrome: " < < count < < std: : endl;

return 0;

}

Виктория11618

Информатика

4,6(34 оценок)

#include< iostream>

int reverse(int n)

{

int t, a = 0;

while (n> 0) {

t = n % 10;

a = a * 10 + t;

n /= 10;

}

return a;

}

int main() {

int n, c = 0;

std: : cin > > n;

for (int i = 1; i < = n; i++) if (i == reverse(i)) c++;

std: : cout < < c < < std: : endl;

}

lera10u

Информатика

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

Var a: array [1..4, 1..4] of integer; b: array [1..4] of integer; i, j, count, countar: byte; arithmean: real; sum, mult, sumthird: integer; begin mult : = 1; randomize; writeln(' *** исходный массив ***'); for i : = 1 to 4 do begin for j : = 1 to 4 do begin //случайные значение в диапазоне [-30; 30] a[i, j] : = random(61)-30; //сумма и количество четных в диапазоне [-10..5] if (a[i, j] mod 2 = 0) and ((a[i, j] > = -10) and (a[i, j] < = 5)) then begin sum : = sum + a[i, j]; count : = count + 1; end; //количество и сумма положительных для среднего арифметического if a[i, j] > 0 then begin countar : = countar + 1; arithmean : = arithmean + a[i, j]; end; //произведение и сумма 3-его столбца if j = 3 then begin mult : = mult * a[i, j]; sumthird : = sumthird + a[i, j]; end; write(a[i, j]: 5); end; writeln; end; writeln('количество четных [-10..5] = ', count); writeln('сумма четных [-10..5] = ', sum); writeln('среднее арифметическое = ', (arithmean/countar): 0: 2); writeln('произведение в 3 столбце = ', mult); writeln('сумма в 3 столбце = ', sumthird); //получение вектора for j : = 1 to 4 do begin sum : = 0; for i : = 1 to 4 do sum : = sum + a[i, j]; b[j] : = sum; end; writeln('вектор: '); for i : = 1 to 4 do writeln(b[i]: 5); end.