Добрый день!Помогите решить задачку. Составить программу:

@Shokkker · Регистрация: 28.05.2011

Добрый день!Помогите решить задачку.

Составить программу:

@end123 · 29.05.2011, 03:44

Pascal

uses crt;
var a,k,i:integer;
b,s:real;
begin
i:=0;s:=0;
for k:=2 to 10 do begin
inc(i);
b:=sin(k)+cos(k);
s:=s+b;
write(' [',b,' ]');
end;
writeln;
writeln('Seredne arifmetu4ne=',s/i);
end.

@Shokkker 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 15
		1
	Добрый день!Помогите решить задачку. Составить программу: 28.05.2011, 18:09. Показов 1278. Ответов 1 Метки нет (Все метки) Добрый день!Помогите решить задачку. Составить программу: Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Добрый день!Помогите решить задачку. Составить программу:

Решение