Просто возми x в модуле
модуль x записывается как abs(x)
abs(x) mod 10=4
Var
s:string;
n:integer;
begin
Readln(s);
n:=Length(s);
if Odd(n) then Delete(s,1,2)
else Insert('www',s,n div 2+1);
Writeln(s)
end.
6. 3) C:/KLASS/UROK/PROBA. TXT
7. 4)
8. 4) Был в С:/учёба/Расписание
Двоичная запись десятичного числа:
Укажите число, двоичная запись которого содержит ровно
6) 2 единицы (14, 31, 18, 16)
7) 3 единицы (12, 10, 8, 14)
8) 4 единицы (35, 15, 21, 32)
9) a=322_8, b=333_8
Запишем все числа в 8-чной системе:
Неравенству a<c<b удовлетворяет последнее число .
Ответ:
10) a=11100110_2, b=127_8
Запишем а и b в 16-чной системе:
Неравенству a>c>b удовлетворяет последнее число
Ответ: