Составить программу на языке паскаль...

[Irelapse]

Составить программу на языке паскаль и распечатать результат решения:

[Irelapse]

Народ, аууууу, кто поможет?

[Vad33]

= 2$

[Mad_Cat]

var b:real;k,m:integer;
begin
b:=0;m:=20;
for k:=1 to m do
b:=b+sin(k)/cos(k)*sqr(k+3);
b:=m/(m-1)+b;
writeln(b);
end.

1.5$

[Stilet]

Если не ошибаюс:

const m=20;
var k:integer;b:double;
begin b:=0;
 for k:=1 to m do begin
  b:=b+tan(k)*sqr(k+3);
 end; write(m/(m-1)+b); readln;
end.

[Irelapse]

Это что за аукцион Откуда у студента лишние деньги Stilet и Mad_Cat спасибо))) Ваши решения оба верны?)

[Аватар]

Это что за аукцион Откуда у студента лишние деньги

А какого студент сам свои задания не делает, если лишних денег нет. Оболтус?

[Irelapse]

Хммм...я не сомневаюсь в том что для очень многих на этом сайте сделать подобное задание даже малого труда не составит, даже книгу ни одну не нужно открывать. И даже в этом случае, если вы обладаете широкими познаниями, никто вас не заставит потратить 5 минут на то чтобы написать сообщение с ответом под этой темой - вы можете их потратить на что то более ценное.

[Аватар]

Причем здесь многие с этого сайта? Вы конкретно для кого учитесь, для дяди?

[Irelapse]

Конечно знаний много не бывает, только вот лично мне программирование совершенно не интересно, я не учусь на программиста, я не планирую им заниматься в дальнейшем, я даже не знаю что такое "язык Паскаль". Я попросил помочь с заданием для сессии и не более того. Учусь для Дяди, да.