Question

Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!

Answer 1

var
 input, output: text;
 x,k: integer;
begin
 assign(input,'input.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(output);
 k := 0;
 read(input, x);
 while x <> 0 do
   begin
   k := k + 1;
   read(input, x)
   end;
 write(output, k);
 close(input);
 close(output)
end.

Answer 2

Спс огромное

Answer 3

А поможешь с другими, или хоть намекнешь?

Answer 4

А что с другими?

Answer 5

вот сылка: http://znanija.com/task/17300722 (Но это ток 2 из 3)

Answer 6

И если тебе не сложно то и хоть намекнуть, вот сылка 3: http://znanija.com/task/17301540