Сыр - сор.................................................
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln(Range(-200,150).Sum)
end.
<u><em>Результат выполнения программы:</em></u>
-8775
var
n, i, e, m : Integer;
yes : Boolean;
begin
Readln(n);
m := 1;
yes := False;
for i := 1 to n do
begin
Readln(e);
if e > m then m := e;
if e < 30 then yes := True;
end;
Writeln(m);
if yes then Write('YES') else Write('NO');
end.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.