A=[]
sum=0
while True:
c=int(input())
if c==0:
break
a.append(c)
for d in a:
sum+=d
print(sum)
И НА СОЛНЦЕ ЕСТЬ ПЯТНА.
таблица кодировок ascii windows 1251
Var a,b,c:ineteger;
d:real;
begin
c:=a*b;
d:=a/b;
writeln(c);
writeln(d)
end.
Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger(ReadlnInteger).Reverse.Println
end.