Dim msg As String Dim x As Integer For x = 100 To 999 If ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) Mod 13 = 0 Then msg = msg & "Утроенная сумма цифр равная " & ((CInt(Mid(CStr(x), 1, 1)) + CInt(Mid(CStr(x), 2, 1)) + CInt(Mid(CStr(x), 3, 1))) * 3) & ", числа " & x & ", кратна 13" & vbCrLf End If Next ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox(msg)
Утроенная сумма цифр равная 39, числа 139, кратна 13 Утроенная сумма цифр равная 39, числа 148, кратна 13 Утроенная сумма цифр равная 39, числа 157, кратна 13 Утроенная сумма цифр равная 39, числа 166, кратна 13 Утроенная сумма цифр равная 39, числа 175, кратна 13 Утроенная сумма цифр равная 39, числа 184, кратна 13 Утроенная сумма цифр равная 39, числа 193, кратна 13 Утроенная сумма цифр равная 39, числа 229, кратна 13 Утроенная сумма цифр равная 39, числа 238, кратна 13 Утроенная сумма цифр равная 39, числа 247, кратна 13 Утроенная сумма цифр равная 39, числа 256, кратна 13 Утроенная сумма цифр равная 39, числа 265, кратна 13 Утроенная сумма цифр равная 39, числа 274, кратна 13 Утроенная сумма цифр равная 39, числа 283, кратна 13 Утроенная сумма цифр равная 39, числа 292, кратна 13 Утроенная сумма цифр равная 39, числа 319, кратна 13 Утроенная сумма цифр равная 39, числа 328, кратна 13 Утроенная сумма цифр равная 39, числа 337, кратна 13 Утроенная сумма цифр равная 39, числа 346, кратна 13 Утроенная сумма цифр равная 39, числа 355, кратна 13 Утроенная сумма цифр равная 39, числа 364, кратна 13 Утроенная сумма цифр равная 39, числа 373, кратна 13 Утроенная сумма цифр равная 39, числа 382, кратна 13 Утроенная сумма цифр равная 39, числа 391, кратна 13 Утроенная сумма цифр равная 39, числа 409, кратна 13 Утроенная сумма цифр равная 39, числа 418, кратна 13 Утроенная сумма цифр равная 39, числа 427, кратна 13 Утроенная сумма цифр равная 39, числа 436, кратна 13 Утроенная сумма цифр равная 39, числа 445, кратна 13 Утроенная сумма цифр равная 39, числа 454, кратна 13 Утроенная сумма цифр равная 39, числа 463, кратна 13 Утроенная сумма цифр равная 39, числа 472, кратна 13 Утроенная сумма цифр равная 39, числа 481, кратна 13 Утроенная сумма цифр равная 39, числа 490, кратна 13 Утроенная сумма цифр равная 39, числа 508, кратна 13 Утроенная сумма цифр равная 39, числа 517, кратна 13 Утроенная сумма цифр равная 39, числа 526, кратна 13 Утроенная сумма цифр равная 39, числа 535, кратна 13 Утроенная сумма цифр равная 39, числа 544, кратна 13 Утроенная сумма цифр равная 39, числа 553, кратна 13 Утроенная сумма цифр равная 39, числа 562, кратна 13 Утроенная сумма цифр равная 39, числа 571, кратна 13 Утроенная сумма цифр равная 39, числа 580, кратна 13 Утроенная сумма цифр равная 39, числа 607, кратна 13 Утроенная сумма цифр равная 39, числа 616, кратна 13 Утроенная сумма цифр равная 39, числа 625, кратна 13 Утроенная сумма цифр равная 39, числа 634, кратна 13 Утроенная сумма цифр равная 39, числа 643, кратна 13 Утроенная сумма цифр равная 39, числа 652, кратна 13 Утроенная сумма цифр равная 39, числа 661, кратна 13 Утроенная сумма цифр равная 39, числа 670, кратна 13 Утроенная сумма цифр равная 39, числа 706, кратна 13 Утроенная сумма цифр равная 39, числа 715, кратна 13 Утроенная сумма цифр равная 39, числа 724, кратна 13 Утроенная сумма цифр равная 39, числа 733, кратна 13 Утроенная сумма цифр равная 39, числа 742, кратна 13 Утроенная сумма цифр равная 39, числа 751, кратна 13 Утроенная сумма цифр равная 39, числа 760, кратна 13 Утроенная сумма цифр равная 39, числа 805, кратна 13 Утроенная сумма цифр равная 39, числа 814, кратна 13 Утроенная сумма цифр равная 39, числа 823, кратна 13 Утроенная сумма цифр равная 39, числа 832, кратна 13 Утроенная сумма цифр равная 39, числа 841, кратна 13 Утроенная сумма цифр равная 39, числа 850, кратна 13 Утроенная сумма цифр равная 78, числа 899, кратна 13 Утроенная сумма цифр равная 39, числа 904, кратна 13 Утроенная сумма цифр равная 39, числа 913, кратна 13 Утроенная сумма цифр равная 39, числа 922, кратна 13 Утроенная сумма цифр равная 39, числа 931, кратна 13 Утроенная сумма цифр равная 39, числа 940, кратна 13 Утроенная сумма цифр равная 78, числа 989, кратна 13 Утроенная сумма цифр равная 78, числа 998, кратна 13
Var a: string; begin write ('Введите слово: '); read (a); writeln ('Именительный падеж: ',copy(a,1,length(a))); writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы'); writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е'); writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у'); writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой'); writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е'); end. Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
a = int(input("a= "))
q = int(input("q= "))
n = int(input("n= "))
list1 = []
for x in range(0,n):
if len(list1) == 0:
list1.append(a)
else:
list1.append(list1[-1]*q)
print(str(list1))
Объяснение: