pascalabc.net
// 1
begin
var p: int64 : = 1;
for var i : = 2 to 20 do
p *= i;
println(p)
end.
//2
begin
var (k, d) : = (0, 1);
while d < > 0 do
begin
read(d);
if d < > 0 then
k += 1
end;
println(k);
end.
// 3
begin
var (s, d) : = (0, 1);
while d < > 0 do
begin
read(d);
s += d
end;
println(s);
end.
Поделитесь своими знаниями, ответьте на вопрос: