Код на 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 h1,min1,h2,min2,h,min,m:integer;
begin
write('h1, m1: ');
readln(h1,min1);
write('h2, m2: ');
readln(h2,min2);
m:=(h2*60+min2)-(h1*60+min1);
h:=m div 60;
min:=m mod 60;
writeln('h = ',h,' min = ',min);
end.
Пример:
h1, m1: 1 20
h2, m2: 3 15
h = 1 min = 55
Это цикл который прогоняется 7 раз, в его теле обычная операция присваивания. В итоге после всех сложений ответ 42
Делайте через switch, это самый простой способ, да и вариантов-то всего 10, тем более что все равно переводить число в строку
...
<span>switch(age){
case 20: cout<<<span>"двадцать лет"<<endl</span>; break;
case 21: </span>cout<<"двадцать один год"<<endl;<span> break;
...
default: </span>cout<<"неверные данные"<<endl;<span>
}</span>
const nx = 30; Var i,c,k,j,n:integer;a:array[1..nx] of integer;beginRead(n);randomize;writeln('Получившийся массив:');for i:=1 to n do begina[i]:=random(20)-10; write(a[i],' ');end;for i:=1 to n do beginfor j:=2 to n do beginif a[j] > a[j-1] then beginc:=a[j]; a[j]:= a[j-1];a[j-1]:=c;end;end;end;writeln;for i:=1 to n do write(a[i],' ');end.
