1) 111+101=1100
Разбор: производим сложение, начиная с младших разрядов
1+1=10, пишем 0, 1 переносим в старший разряд
1+0 = 1, добавляем перенесённую ранее единицу 1+1=0, пишем 0, 1 переносим в старший разряд
1+1+1=11
2) 207+4152=4361
7+2=11, пишем 1, 1 переносим в старший разряд
0+5+1=6
2+1=3
0+4=4
3) A12+69=A7B
2+9=В
1+6=7
А+0=А
4) 100111-10001=10110
Начинаем также в столбик с младшего разряда
1-1=0
1-0=1
1-0=1
0-0=0
10-1=1
5) 342-215=125
2-5 не получается, добавляем единицу из старшего разряда
12-5=5
3-1=2 (было 4, но единицу мы вычли в предыдущем действии)
3-2=1
6) A1B2-97C=9836
2-C не получается, берём единицу из старшего разряда
12-С=6
A-7=3 (было B, но одну единицу мы использовали ранее)
1-9 не получается, берём едиинцу из старшего разряда
11-9=8
из А ранее вычли единицу, поэтому получим не А, а 9.
Надеюсь, понятно :)
var
x, n:integer;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
while n > 0 do
begin
if n mod 10 = x then
begin
writeln('Yes');
readln;
Exit;
end;
n := n div 10;
end;
writeln('No');
readln;
end.
//Задание 2
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
n := random(18 + 3);
writeln('n = ', n);
for i := 1 to n do
begin
a[i] := random(11) - 5;
while a[i] = 0 do
a[i] := random(11) - 5;
write('a[', i, '] = ', a[i], ' ');
end;
a[i + 1] := 0;
writeln;
i := 1;
while(a[i + 1] <> 0) do
begin
if (a[i] = a[i + 1]) then
begin
writeln('a[', i, '] = a[', i + 1, '] = ', a[i]);
readln;
exit;
end;
inc(i);
end;
writeln('Нет ни одной пары одиноковых соседних чисел');
readln;
end.
