Нужна , буду . создайте файл f, компоненты которого являются действительными числами. напишите программу вычисления суммы компонентов файла f и произведения ненулевых компонентов этого файла. язык программирования: pascal

Cvar   f: text;   k: integer;   s, p: longint;   i: integer; begin   assign(f, 'output.dat');   rewrite(f);   writeln('вводите данные, окончание число 7777');   repeat       read(k);       if k< > 7777 then writeln(f,k)       until k=7777;   close(f);   reset(f);   s : = 0;   p : = 1;   writeln;   while not eof(f) do   begin       readln(f, k);       write(k: 4);       s : = s + k;       if k < > 0 then p : = p * k   end;   close(f);   writeln;   writeln('сумма= ', s, ', произведение= ', p) end. вводите данные, окончание число 7777 3 6 -4 6 2 -3 -4 2 6 0 5 -1 7777     3    6  -4    6    2  -3  -4    2    6    0    5  -1 сумма= 18, произведение= 622080

Uses crt; var f: text;     i,x,sm,n: integer;       pr: longint; begin randomize; clrscr; pr: =1; assign(f,'f.txt'); rewrite(f); writeln('введите число заполнений (например 6, в файле будет шесть натуральных чисел) ? '); readln(n); for i: =1 to n do beginwrite(i,') '); readln(x); writeln(f,x); end; close(f); reset(f); while not eof(f) dobeginread(f,x); sm: =sm+x; if x < > 0 then pr: =pr*x; end; if n < > 0thenbeginwriteln; writeln('сумма всех чисел = ',sm); writeln('произведение всех чисел = ',pr); end else writeln('файл пустой.'); readkey; close(f); end.

1. если числа a,b,c,d вводятся с клавиатуры, то их просто нужно проверить на принадлежность интервалу (1; 30), но не присваивать им 1! 2. циклы while не нужны, они зацикливают программу. 3. так как увеличение значения k и суммы нужно выполнять одновременно, то есть при выполнении условия, то нужно было эти команды заключить в операторные скобки begin end примерный вариант программы: program z; var a,b,c,d,k,s: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); k: =0; s: =0; if (a> 1) and (a< 30) and (a mod 3=0) then begin k: =k+1; s: =s+a; end; if (b> 1) and (b< 30) and (b mod 3=0) then begin k: =k+1; s: =s+b; end; if (c> 1) and (c< 30) and (c mod 3=0) then begin k: =k+1; s: =s+c; end; if (d> 1) and (d< 30) and (d mod 3=0) then begin k: =k+1; s: =s+d; end; if k=0 then writeln(not solution') else writeln(s/k); end.