Дано натуральное число n.Найти сумму всех нечетных чисел от 1 до n.

14.12.2009, 14:44. **Показов** 8244. **Ответов** 4

Подскажите пожалуйста как целиком сделать программу для этой задачи на Паскале.

За ранее Благодарю!!!

@yanyk1n · 14.12.2009, 14:46

Pascal

uses crt;
i,n,s:integer;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 s:=0;
 for i:=1 to n do if i mod 2=1 then s:=s+i;
 writeln(s);
 readln;
end.

@Jazon_deenAlt · 14.12.2009, 14:46

Pascal

uses crt;
var
n,m:integer;
s:real;
begin
writeln('vvedite n');
readln(n);
m:=1;
s:=0;
while m<=n do begin
s:=s+m;
writeln(m,' ',s);
m:=m+2;
end;
end.

@unick12345 · 14.12.2009, 14:47

ЮлькО, вопрос конечно интересный, но а вы случаем не в одном кабинете сидите с ldinka135 ??? только что для решали

14.12.2009, 14:54

да в одном

Добавлено через 4 минуты
у нас завал в группе

ЮлькО
		1
	Дано натуральное число n.Найти сумму всех нечетных чисел от 1 до n. 14.12.2009, 14:44. Показов 8244. Ответов 4 Метки нет (Все метки) Подскажите пожалуйста как целиком сделать программу для этой задачи на Паскале. За ранее Благодарю!!!

@unick12345 1855 / 1177 / 190 Регистрация: 27.03.2009 Сообщений: 4,556
	14.12.2009, 14:47	4
	ЮлькО, вопрос конечно интересный, но а вы случаем не в одном кабинете сидите с ldinka135 ??? только что для решали Организация Циклов 1

ЮлькО
	14.12.2009, 14:54	5
	да в одном Добавлено через 4 минуты у нас завал в группе

Опции темы