Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
#include <iostream>
int main()
{
int
A, B;
std::cin >> A >> B;
std::cout << A + B << std::endl
<< A - B << std::endl
<< A * B << std::endl;
return 0;
}
Справедливо для всех версий компиляторов, диалектов.
Компилировал в GCC 6.3.
//PascalABC.Net 3.2
begin
var a:=arrrandom (10, 0, 100);
println ('Случайные числа:', a);
print ('Сумма:', a.sum, ', Ср. арифм:', a.sum/length(a));
end.
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>