Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд
Вывести 2 переменные в порядке в возрастания, или последовательность чисел от n do d?
<span>N = int(input("Введите число N"))
if N == 2*2
print("Yes")
if N == 2*3
print("No")
>= больше равно
> больше
<= менше равно
< менше
== равно
!=не равно</span>