Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
Ответ номер 3. 15 Кбайт. Перемножаешь страницы, строки и символы. На 8 бит не умножаешь, так как ответ в байтах.
Во free pascal?
Если хоче порисовать то скачай Basic
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"