Var a: array [1 .. 10] of integer; i, Count, C, tmpLast, tmpFirst: integer; begin write('Введите число C: '); readln(C); writeln; for i := 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); if a[i] = C then begin Count := Count + 1; tmpLast := i; end; end; writeln; if (Count = 0) then writeln('В массиве нет числа равное С') else begin writeln('В массиве нашлось число, равное С'); if (Count = 1) then writeln('Первое и единственное число в позиции a[', tmpLast, ']') else begin i := 0; repeat i := i + 1; tmpFirst := i; until (a[i] = C); writeln('Первое такое число a[', tmpFirst, ']'); writeln('Последнее такое число a[', tmpLast, ']'); end; end; readln; end.
# Вводим строку с клавиатуры в память (input)
# и переводим ее в целое число (int)
a = int(input("Введите число: "))
# Вычисляем целую часть и остаток от деления на 7 (divmod)
# Если остаток равен 0, то в переменную res заносим "Да",
# или "Нет" в противном случае
res = "Да" if divmod(a, 7)[1] == 0 else "Нет"
# Выводим на экран содержимое переменной res
print (res)
Объяснение:
Результат на рисунке