Лесна задача на Pascal

playmannn · Начинаещ Регистриран на: 09 Dec 2006 Мнения: 4

Да се състави програма,която извежда четните числа от 1 до 100 и дава сбора им.
И същата,само че за нечетните числа...
Компилатор: Pascal

Реклама

uktc · Пуснато на: Thu Jun 21, 2007 8:45 pm Заглавие:

program chetni;
var {main}
i, S:integer;

begin {main}

for i:=1 to 100 do
if i mod 2=0 then
writeln(i);

i:=2;
S:=0;

repeat
S:=S+i;
i:=i+2;
until i>100;

writeln('Sumata na chetnite chisla ot 1 do 100 e ',S);
readln;

end. {main}

Fed · Пуснато на: Thu Jun 21, 2007 8:49 pm Заглавие:

Че Paskal учи ли се още. Laughing

playmannn · Пуснато на: Thu Jun 21, 2007 8:58 pm Заглавие:

Мерси много,отсъствал съм на тоя урок Laughing

А за да стане за нечетните как се променя? Rolling Eyes

steliyan · Пуснато на: Fri Jun 22, 2007 10:02 am Заглавие:

Абе учи се..

lpishinov · Пуснато на: Fri Jun 22, 2007 1:40 pm Заглавие:

А аз ще предложа може би по-рационалното решение, няма нужда от излишни питания и процедури като odd Smile

:
Program chetni;
var i,s:integer;
begin
i:=2;s:=0; { ako iskame da sa nechetni pochvame ot i=1 }
while i<=100 do
begin
write(i,' ');s:=s+i;
i:=i+2
end;
writeln;write('s = ',s);
end.

krassi_holmz · Пуснато на: Fri Jun 22, 2007 11:07 pm Заглавие:

Най-добре е това Smile

program stup;
begin
writeln(2);
writeln(4);
writeln(6);
writeln( Cool

;
writeln(10);
writeln(12);
writeln(14);
writeln(16);
writeln(1 Cool

;
writeln(20);
writeln(22);
writeln(24);
writeln(26);
writeln(2 Cool

;
writeln(30);
writeln(32);
writeln(34);
writeln(36);
writeln(3 Cool

;
writeln(40);
writeln(42);
writeln(44);
writeln(46);
writeln(4 Cool

;
writeln(50);
writeln(52);
writeln(54);
writeln(56);
writeln(5 Cool

;
writeln(60);
writeln(62);
writeln(64);
writeln(66);
writeln(6 Cool

;
writeln(70);
writeln(72);
writeln(74);
writeln(76);
writeln(7 Cool

;
writeln(80);
writeln(82);
writeln(84);
writeln(86);
writeln(8 Cool

;
writeln(90);
writeln(92);
writeln(94);
writeln(96);
writeln(9 Cool

;
writeln(100);
writeln(50*51);
end.