12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
такой адресс получается
Ответ дал: Гость
var a: array [1..30] of integer;
i: integer;
begin
for i : = 1 to 30 do
begin
a[i]: = 5+5*0.05*(i-1)+2;
writeln(a[i]);
end.
end.
Ответ дал: Гость
пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:
abc = ax^2 + bx +c (1)
abcabc = ax^5 + bx^4 + cx^3 + ax^2 + bx + c = x^3(ax^2 + bx + c) + (ax^2 + bx + c) = (x^3 + 1)(ax^2 + bx + c) (2)
из условия следует, что (2) должно равняться (1), умноженному на 4097:
(x^3 + 1)(ax^2 + bx + c) = 4097*(ax^2 + bx +c) => х^3 = 4096 => х = 16
ответ: основание системы счисления равно 16 (т.е. это шестнадцатиричная система счисления).
Популярные вопросы