Uses crt;
var
n,f,p,s:integer;
begin
textbackground(15);
textcolor(1);
clrscr;
writeln('введите сколько книг по програмированию ');
readln(p);
f:=p*4;
s:=f-12;
n:=f+s+p;
writeln('всего ',n,' книг');
end.
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadlnString.Sorted.TakeLast(2).ToArray;
Writeln(StrToInt(a[0])+StrToInt(a[1]));
end.
<u><em>Тестовое решение:</em></u>
324576854532
15
Альт не используется сам по себе, ибо только при взаимодействии с другими клавишами. например альт + шифт.