Программа пишет ошибку!! Помогите найти ошибку

@spiridon · Регистрация: 30.09.2011

Author24 — интернет-сервис помощи студентам

Pascal

Program Summa;
var i, N, M: integer;
begin
    Writeln ('Введите значение N:');
    Read (N);
    M:=0;
    For i:=1 To N
            Do s:=M+((cosN-1)(cosM+1));
    Writeln ('s=', s : 6);
end.

@Techno · 30.09.2011, 17:53

переменная s не объявлена.

@spiridon · 30.09.2011, 17:55 **[ТС]**

И как её объявить??

@Techno · 30.09.2011, 17:57

так же как и все остальные у Вас: var i, N, M: integer;
добавьте

Код

var i, N, M: integer;
s: double;

@I2um1 · 30.09.2011, 18:01

Исправил все ошибки:

Pascal

Program Summa;
var i, N, M: integer;
   s : real;
begin
Writeln ('Введите зенчение N:');
Readln(N);
M:=0;
For i:=1 To N
Do s:=M+((cos(N)-1)*(cos(M)+1));
Writeln ('s=', s:0:6);
end.

Даже наверное лучше так:

Pascal

Program Summa;
var i, N, M: integer;
   s : real;
begin
Writeln ('Введите зенчение N:');
Readln(N);
M:=0;
For i:=1 To N
Do s:=s + M+((cos(N)-1)*(cos(M)+1));
Writeln ('s=', s:0:6);
end.

@Techno 318 / 120 / 2 Регистрация: 15.07.2011 Сообщений: 293
	30.09.2011, 17:53	2
	переменная s не объявлена. 1

@spiridon 1 / 1 / 0 Регистрация: 30.09.2011 Сообщений: 9
	30.09.2011, 17:55 [ТС]	3
	И как её объявить?? 0

@Techno 318 / 120 / 2 Регистрация: 15.07.2011 Сообщений: 293
	30.09.2011, 17:57	4
	так же как и все остальные у Вас: var i, N, M: integer; добавьте Код var i, N, M: integer; s: double; 1

	30.09.2011, 18:01

Опции темы