Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
X - abc
ab
ba
n - bac
\\\\\\\\\\\\\\\\\\\
var
x, n: integer;
a: array [1..4] of char; //Пусть тут хранятся символы, 4-ый - буфер для обмена
begin
readln(n);
for x := 1 to 3 do
a[x] := n.ToString()[x]; //Заполняем массив цифрами числа
a[4] := a[1];
a[1] := a[2];
a[2] := a[4];
x := strtoint(a[1] + a[2] + a[3]); //Переводим "правильный" массив в число
writeln(x);
<span>end.</span>
Если интересует вариант поинтереснее, могу предложить код, который подойдет при наличии компилятора, поддерживающий стандарт C++11(для std::array)
#include <iostream>
#include <algorithm>
#include <array>
#include <iterator>
int main()
{
std::array<int, 25> arr;
std::for_each(arr.begin(), arr.end(), [](int& val)
{
val = rand() % 100 + 1;
});
int sum = arr[0] + arr[19];
for(auto& i : arr)
sum += 3*i;
std::copy(arr.begin(), arr.end(),
std::ostream_iterator<int>(std::cout, " "));
std::cout << std::endl << sum;
return 0;
}
Во первых вычислим сколько битов имеет рукопись автора для этого 16•64•1024•2048=147483648 битов. нам известно что в одном байте 8 битов. из этого следует 147483648:8=131072 байта. в мегабайте 1000000 байтов. из этого 131072:1000000=0,131072 мегабайта рукописи. а еще нам известно что рукопись имеет 2650 иллюстраций по 6 мегабайткаждая.из этого выходит 2650•6=15900 мегабайт
для того чтобы узнать сколько ушло памяти нафлешке 15900+0,131072= 15900,131072≈15900,1311
в одном гиге 1000 мегабайт
15900,1311:1000= 15,9001311 гигабайт. в общем флеш карта заполнена этой рукописью
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(100,1,20); a.Println;
Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.
<u><em>Тестовое решение</em></u>
7 9 17 2 1 18 8 9 9 3 14 13 10 18 20 5 5 9 5 18 20 12 6 19 2 3 20 17 9 15 3 2 18 17 16 8 5 11 7 15 19 11 17 15 18 18 12 17 12 11 11 11 15 9 20 16 3 19 1 18 18 12 1 14 20 12 16 14 2 13 1 15 3 11 19 9 16 12 2 4 12 3 5 19 4 12 7 10 17 1 5 7 11 9 17 7 11 3 16 6
Сумма четных чисел равна 528
