<span>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 </span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span> 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 </span>
Program Circle; var r,s,l:real; begin write('Введите радиус '); read(r); s:=Pi*sqr(r); l:=Pi*r*2; writeln('Площадь окружности = ',s,', а длина = ',l); end.