1. var a,b,c:integer; begin write('Введите положительное двузначное число: '); readln(a); b:=a div 10; c:= a mod 10; writeln('Сумма цифр числа ',a, ' равна ', b + c) end.
2. var a,b,i,s,k:integer; begin write('Введите границы промежутка: '); readln(a,b); s:=0; k:=a; for i:=k to b do begin if k mod 3 = 0 then s:=s+k; k:=k+1 end; writeln('Сумма целых положительных чисел кратных 3 от ', a, ' до ',b, ' равна ',s) end.
3. var a,b,c,i,k,p:integer; begin k:=0; p:=100; for i:=p to 999 do begin a:= i div 100; b:= i mod 100 div 10; c:= i mod 10; if (a+b+c) mod 5 = 0 then k:=k+1; p:= p+1; end; writeln('Количество положительных трёхзначных чисел, сумма цифр которых кратна 5 равно ',k); readln; end.
4. var a,b,c,i,k,p:integer; begin k:=0; p:=10; for i:=p to 99 do begin a:= i div 10; b:= i mod 10; if (((a+b) mod 3 = 0) and (b=4)) or (((a+b) mod 3 = 0) and (b=8)) then writeln(i); p:= p+1; end end.
Dim Massiv(9) As Integer Dim Max As Integer Dim x As Integer
Max = Massiv(0) For x = 1 To 9 If Massiv(x) > Max Then Max = Massiv(x) Next<span> </span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span> MsgBox(Max)</span>