Ис+(пол)+(нить')+(ель)=Исполнитель
Левый столбец (третий): 3, 4, 6, 7, 8. Правый: 1200, 800, 600, 700, 800.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
function Sod(n:integer):integer:=
n.ToString.Select(c->StrToInt(c)).Sum;
begin
var n:=ReadInteger('n=');
var max:=0;
var m,mmax:integer;
for var i:=1 to n do begin
m:=ReadInteger('Число '+IntToStr(i)+': ');
var s:=Sod(m);
if s>max then begin max:=s; mmax:=m end
end;
Writeln('Максимальная сумма ',max,' в числе ',mmax)
end.
<u><em>Тестовое решение:</em></u>
n= 5
Число 1: 3243
Число 2: 10000004
Число 3: 23536
Число 4: 9942
Число 5: 43354
Максимальная сумма 24 в числе 9942
1.взять миску
2.открыть холодильник
3.взять корм
4.закрыть холодильник
5.наложить корм в миску
6.поставить миску собаке
7.помыть миску после того как собака поела
8.вытереть мордочку собаке
9.конец
Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.