№1.
а:=4;
b:= 6;
b:= 8+4*6=32;
a:=32/4*4=32
ответ: 32
№2.
а:=3;
b:= 6;
b:= 12+3*6=30;
a:=30/5*3=18:
ответ: 18
№3.
а:=12;
b:= 8+12/2=14;
a:=12-14/2=5;
ответ: 5
№4.
а:=2;
b:= 6;
b:= 12+2*6=24;
a:=24/4*2=12;
ответ: 12
№5.
а:=4;
b:=8+2*4=16;
a:=16/2*4=32;
ответ: 32
№6.
f:=21;
e:= 10;
f:= 5*21+5=110;
e:=110-10*5=60;
ответ: 60
№7.
а:=14;
b:= 4;
a:=14/2-4=3;
b:=(3*4)/2=6;
b:=3+6=9;
ответ: 9
№8.
а:=3; (в задаче наверное ошибка в значении а:=-3, число с минусом быть не может)
b:= 5;
a:= 7+3*5=22;
b:=22/2*5=55;
ответ: 55
№9.
а:=4;
b:= 5;
a:= 5+15=20;
b:=100/20*4=20;
ответ: 20
№10
b:=8;
a:= 10;
b:= 8+10*2=28;
a:=29-10=19;
ответ: 19
cnt = 0 # количество чисел в последовательности
mean = 0 # среднее значение последовательности
mod3 = 0 # количество чисел, делящихся на 3
mod3_7 = 0 # количество чисел, делящихся на 3, но не делящихся на 7
cnt2 = 0 # количество двузначных чисел
cnt2_3 = 0 # количество двузначных чисел, оканчивающихся на 3
maxx = None # максимальное число
maxx_mod2 = None # максимальное из чётных
maxx2 = None # второй максимум
maxmin = None # разница между максимальным и минимальным
a = int(input('Введите целое число: '))
while a != 0:
cnt += 1
mean += a
if abs(a)%3 == 0: mod3 += 1
if abs(a)%3 == 0 and abs(a)%7 != 0: mod3_7 += 1
if abs(a)//10 != 0 and abs(a)//100 == 0: cnt2 += 1
if abs(a)//10 != 0 and abs(a)//100 == 0 and abs(a)%10 == 3: cnt2_3 += 1
if maxx is None or a > maxx: maxx = a
if abs(a)%2 == 0 and (maxx_mod2 is None or a > maxx_mod2): maxx_mod2 = a
if a < maxx and (maxx2 is None or maxx2 < a): maxx2 = a
if maxmin is None or a < maxmin: maxmin = a
a = int(input('Введите ещё одно целое число или 0 для завершения: '))
print()
print('- количество чисел в последовательности:', cnt)
if cnt != 0:
print('- среднее значение последовательности:', round(mean/cnt,2))
print('- количество чисел, делящихся на 3:', mod3)
print('- количество чисел, делящихся на 3, но не делящихся на 7:', mod3_7)
print('- количество двузначных чисел:', cnt2)
print('- количество двузначных чисел, оканчивающихся на 3:', cnt2_3)
print('- максимальное число:', maxx)
print('- максимальное из чётных:', maxx_mod2)
print('- второй максимум:', maxx2)
print('- разница между максимальным и минимальным:', maxx - maxmin)
То же самое, но с массивом и лямбда-функциями:
values = []
a = int(input('Введите целое число: '))
while a != 0:
values.append(a)
a = int(input('Введите ещё одно целое число или 0 для завершения: '))
print()
print('- количество чисел в последовательности:', len(values))
if len(values) != 0:
print('- среднее значение последовательности:', round(sum(values)/len(values), 2))
print('- количество чисел, делящихся на 3:', len(list(filter(lambda x: abs(x)%3 == 0, values
print('- количество чисел, делящихся на 3, но не делящихся на 7:', len(list(filter(lambda x: abs(x)%3 == 0 and abs(x)%7 != 0, values
print('- количество двузначных чисел:', len(list(filter(lambda x: abs(x)//100 == 0 and abs(x)//10 != 0, values
print('- количество двузначных чисел, оканчивающихся на 3:', len(list(filter(lambda x: abs(x)//100 == 0 and abs(x)//10 != 0 and abs(x)%10 == 3, values
print('- максимальное число:', max(values))
print('- максимальное из чётных:', max(list(filter(lambda x: abs(x)%2 == 0, values
print('- второй максимум:', max(list(filter(lambda x: x<max(values), values
print('- разница между максимальным и минимальным:', max(values) - min(values))
Во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. Во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. Если нашлась, то выход из цикла. Из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр.
program z1;
var n: int64; l: integer; s: string; i, j: byte; x: boolean;
begin
writeln ('введите число');
readln (n);
Str(n,s);
l:=length(s);
x:=false;
for i:=1 to l-1 do begin
for j:=i+1 to l do begin
if s[i]=s[j] then begin x:=true; break; end;
end;
if x=true then break;
end;
writeln (x);
end.