Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
Программа:
var x,y: real;
begin
write('x, y: ');
readln(x,y);
if (y>=x*x)and(x<=1)
then writeln('принадлежит')
else writeln('не принадлежит');
end.
Пример:
x, y: 0.5 2
принадлежит
Ответ: 16 по основанию 8 --> 1*8^1+6 = 14 по основанию 10
35 по основанию 8 --> 3*8+5=29 по основанию 10
57 по основанию 8 --> 47 по основанию 10
103 по основанию 8 --> 1*8^2 + 0+ 3= 67 по основанию 10
177 по основанию 8 --> 64 + 56 + 7 = 127 по основанию 10
234 по основанию 8 --> 156 по основанию 10
3. 100011101 + 1001110 = 101101011
111000+110011 = 1101011
4. 11100111 - 11011 = 11000100
Const N = 10;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.