Program zadanie; Var a,b:integer; Begin Writeln('Введите целое число'); Readln(a); If (a div 10>0) or (a div 10<0) Then begin b:=a div 10; a:=a mod 10; a:=a+b; Writeln('Сумма=',a); end; End.
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); Writeln('Исходный массив'); a.Println; var se:=a.Where(x->x mod 3=0); if se.Count=0 then Writeln('В массиве нет элементов, кратных трем') else begin var b:=se.Max; var i:=0; while a[i]<>b do Inc(i); if i=n-1 then Writeln('Максимальный элемент - последний') else begin Writeln('Результирующий массив'); a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println end end end.
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.