Помогите,пожалуйста!Нужно написать програму на С...
С меня + и голоса вконтакте.
Задание:
Задана последовательность действительных чисел. Найти сумму квадратов чисел,
значение которых принадлежит промежутке [a, b].
Входные данные программы
считываются из текстового файла. В результате работы программы на
диске формируется текстовый файл, в котором записываются ФИО и
группа исполнителя работы, задания к работе, содержание входного
файла данных, результаты расчета;
Вот она же готовая на паскале:
Код:
uses crt;
var
i,o:text;
a,b,x,k:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
assign(i,'in1.txt');
reset(i);
assign(o,'out1.txt');
append(o);
while not eof(i) do
begin
read(i,x);
if (x>a) and (x<b) then
begin
write(x,' - ');
x:=sqr(x);
writeln(x);
k:=k+x;
end;
end;
writeln('k=',k);
writeln(o,' - ',k);
close(i);close(o);
readln;
end.