Человек, умеющий читать и писать, казался египтянам мудрецом потому, что образование в то время мало было развито. И тот человек, который умел читать и писать казался египтянам очень умным, так как в то время практически никто не умел делать это.
Всё сделано лично мной. Копирование запрещено©
Этот суп рассольник
р с с л и н к а о ь
Код на VBScript - проверялся, работает
Function SumOfDividers(ByVal num)
SumOfDividers = 0
for i = 1 to num - 1
if num mod i = 0 then SumOfDividers = SumOfDividers + i
next
End Function
Sub Zadanie23317569(ByVal n)
for i = 2 to n
k = SumOfDividers(i)
if SumOfDividers(k) = i then Msgbox i & " " & k
next
End Sub
Zadanie23317569 300
Код на VB.Net - исправление как догадалась, не проверялось
Sub Main(ByVal n)
Dim i As Integer
Dim k As Integer
for i = 2 to n
k = SumOfDividers(i)
if SumOfDividers(k) = i then Console.WritelLine(i & " " & k)
next
End Sub
Function SumOfDividers(ByVal num As Integer) As Integer
Dim i As Integer
SumOfDividers = 0
for i = 1 to num - 1
if num mod i = 0 then SumOfDividers = SumOfDividers + i
next
End Function
Ответ: А
так как калькулятор предназначе для работы с арефмитическими числами
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
if (a1*a2 mod 3 = 0) then
begin
writeln('da');
end
else
writeln('net');
end.