1.сравните константы и расположите их в порядке возрастания: 1. 'a cat' 2. 'зоопарк' 3. 'the museum/ 4. 'the zoo' 2.что будет выведено в результате выполнения фрагмента программы: a: =’пар’; b: =’о’; c: =’воз’; e: =’ход’; f: =length(a) + length(b)+ length(c)- length(е) ; 1)18 2)4 3)8 4)15 3. какое значение будет иметь переменная s после выполнения программы: var i, n: integer; a, s: string; begin a: ='топор'; n: =length(a); s: =a[n]; for i: =n-1 downto 2 do s: =s+a[i]; s: =s+a[1]; writeln(s); readln; end. 1)потоп 2)ропот 3)топот 4)ротор
Ответы
1)11, 21, 36. признак делимости на 2.
2)делится. тк. сумма последних цифр равна 12
3)3599 59 5429 61
61 61 89 89
1 1
нод(3599, 5429)= 61
4) 540 2 504 2 225 3
270 2 252 2 75 3
135 3 126 2 25 5
45 3 63 3 5 5
15 3 21 3 1
5 5 7 7
1 1
нок(540, 504, 225)=540*2*7*5=37800
5)667 23 383 простое число
29 29 1
1 (составное)
function isprime(n: integer): boolean;
begin
if n < 4 then result : = true
else
begin
var found : = (n mod 2 = 0);
var p : = 3;
while (not found) and (sqr(p) < = n) do
begin
found : = (n mod p = 0);
p += 2
end;
result : = not found
end
end;
function ispalindrom(n: integer): boolean;
begin
result : = true;
if n > 10 then
begin
var (n1, i) : = (n, -1);
var a : = new integer[9];
while n1 > 0 do
begin
i += 1;
a[i] : = n1 mod 10;
n1 : = n1 div 10
end;
for var j : = 0 to i div 2 do
begin
if a[j] < > a[i - j] then
begin
result : = false;
break
end
end
end
end;
begin
var (i, k) : = (3, 1);
repeat
if isprime(i) and ispalindrom(i) then k += 1;
i += 2
until k > = 101;
(i - 2).println
end.
результат: 94349Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
