2020-04-07
81
Приведите код программы, которая находит все двузначные числа, сумма квадратов цифр которых делится на 15.
Решение. В цикле от 10 до 99 перебираются все двузначные числа. Команда a:=idiv 10; (b = iMod 10) высчитывает количество десятков (определяет первую цифру). Команда b:=imod 10; (b = iMod 10)рассчитывает вторую цифру путем получения остатка от деления на 10. В переменную с рассчитывается сумма квадратов цифр (c:=a*a+b*b;). Если остаток от деления с на 15 равен 0, то данное число искомое.
Ответ:
| Basic | Pascal |
| Sub pr6() Dim i, a, b, c As Single For i = 10 To 99 a = i \ 10 b = i Mod 10 c = a * a + b * b If c Mod 15 = 0 Then Print (i) End If Next End Sub | program pr6; vari,a,b,c:integer; begin for i:= 10 to 99 do begin a:=i div 10; b:=i mod 10; c:= a*a+b*b; if c mod 15=0 then begin write(i:4); end; end; end. |
