Дан массив f[10] заполненный по формуле в файле a.txt, определить сумму четных элементов и вывести ее в входной файл b.txt
Формула: y=2sin(x)+1
Ответы
Ответ дал:
0
var t1,t2:text;
begin
assign(t1,"a.txt");
assign(t2,"b.txt");
reset(t1);
rewrite(t2);
var i:byte:=0;
var a,sum:integer;
sum:=0;
while not eof(t1) do begin
readln(t1,a);
inc(i);
if ((i+1) mod 2=0) then sum+=a;
end;
writeln(t2,sum);
close(t1);
close(t2);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад