3 задачки,помогите решить

[ДашулЬка]

1. вычислить 1+1/4+1/9+1/16+...1/100.
2.есть координаты N точек. определить количество точек, которые попадают в круг с радиусом 2 ицентром в начале координат.
3.определить, имеются ли в целочисленном массиве Х(7) число, кратное числу С.

[Студентка ТюмГУ]

код первой программы!)

program _1; { вычислить 1+1/4+1/9+1/16+...1/100 }
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=100;
var
p:real;
i:byte;
begin
p:=1;
k:=1;
while (k<=n) do
begin
m:=k;
k:=k+2;
p:=p+1/(m+k);
end;
writeln(p:3:2);
end.

[Sazary]

Студентка ТюмГУ, где объявление k и m?

p:=p+1/(m+k);

Формула неверна.

Здесь 10 слагаемых.
a[i] = 1/(i^2)

Правильное решение:

uses crt;
var
i:integer;
s : real;
begin
clrscr;
s := 0;
for i:=1 to 10 do
 s := s + 1/sqr(i);
writeln('s = ',s:7:4);
readln;
end.

-----------------
ДашулЬка, а вам бы следовало делать задачки самостоятельно.
Будут конкретные вопросы - задавайте.

[ДашулЬка]

uses crt -это что???

clrscr и это??
я написала без clrscr ответ такой же....спасибо!!!

[Sazary]

uses crt -это что???
clrscr и это??

В любом учебнике по паскалю об этом говорится.
CRT - модуль.
clrscr - процедура для очистки экрана

[pomoshnic]

clrscr и это??

Это процедура очистки экрана.

uses crt -это что???

А это модуль в котором находится clrscr.

[ДашулЬка]

спасибо большое...а третью задачу как решить??

[Sazary]

Сообщение от ДашулЬка

а третью задачу как решить??

Перебираете в цикле элементы массива.
Проверить кратность можно с помощью оператора mod:

if x[i] mod C = 0 then
 { действия, если x[i] делится на C }

[ДашулЬка]

а поподробнее можно??? я ж тум дум...

[Sazary]

а поподробнее можно??? я ж тум дум...

Читайте учебники и будет все понятно.

А еще есть поиск, где вы найдете море подобных задач.