операторы присваивания Опции

[Sanches]

Вот смотри, можно так:

s:=0;
n:=0;
for i:=1 to 5 do begin
  Inc(n);
  Write('-> ');
  ReadLn(a);
  s:=s+a;
  WriteLn('Введено чисел: ,n,' Сумма: ',s:6:2,' Сред.арифметическое: ',s/n:6:2)
end;

дак я эту и написал, только вот так
║ program srednee_arifmeticheskoe; ▲
║ var ■
║ i:integer; ▒
║ a,b,c:real; ▒
║ begin ▒
║ b:=0; ▒
║ for i:=1 to 5 do ▒
║ begin ▒
║ writeln ('введите число',i:2); ▒
║ readln(a); ▒
║ B:=b+a; ▒
║ c:=b/i; ▒
║ writeln('введите чисто',i:2,' сумма=',b:3:2,' среднее арифметическое=',c:3:2);
║ end; ▒
║ readln; ▒
║ end. ▒
║

[Lapp]

Народ. ну хоть со второй прогой помогите!!! я первую написал

Если будешь показывать, что хоть что-то пытаешься делать, к тебе тут будет гораздо лучшее отношение, постарайся это понять.

Write('-> ');
ReadLn(n);
Write(n,' - ');
for i:=2 to Trunc(Sqrt(n)) do if n mod i=0 then begin
  WriteLn('не ');
  Break
end;
WriteLn('простое число');

[Sanches]

я пытаюсь))) вот написал же первую сам

[Lapp]

я пытаюсь))) вот написал же первую сам

Дык. Сразу уважуха!))

Только как тебя угораздило вот так это запостить??

только вот так
║ program srednee_arifmeticheskoe; ▲
║ var ■

Чем копировал? Уж не через ворд ли?..
Копируй через блокнот и используй теги, когда постишь (выделить прогу мышью, кликнуть CODE, выбрать Паскаль)

[Krjuger]

Ну а что в твоем понимании простое число?Это число которое не делиться на 2,3,5,7.11 и тд без остатка.как можно проверить,числа которые являются составными,первое число 2*2,потом 2*3,2*4,3*3,2*5,2*6,2*7,3*5,2*8 и тд надеюсь ты улавливаеш последовательность?Либо можно проверять делится ли оно без остатся,если делится то составное,если нет то простое.мда зря старался Блин)

Сообщение отредактировано: Krjuger - 31.05.2009 14:19

[Lapp]

мда зря старался Блин)

Ничего не бывает зря)).

Вот так оно всегда бывает: пожалеешь человека - и отберешь у него радость сделать самому((..
Жалость - это неправильно..

PS
кто будет тут флудить - жалеть не буду!!

хихи))

[Krjuger]

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

[Unconnected]

Вот так оно всегда бывает: пожалеешь человека - и отберешь у него радость сделать самому((..
Жалость - это неправильно..

Как говорится, благими намерениями вымощена дорога в ад.))
По-моему, главное - не вывернуться, а чтобы после 30 самостоятельно решённых "радостей" в голове хоть одна, да запомнилась.

(К следующему посту: он проверяет на склонность к флудерству :-D (отредактировал, засорять топ не хочу))

Сообщение отредактировано: Unconnected - 31.05.2009 14:57

[Krjuger]

По-моему, главное - не вывернуться, а чтобы после 30 "радостей" в голове хоть одна, да запомнилась.

Это конешно же да,то если из 30 в одной приходится выворачиваться,то тут уж ничего не поделаеш,Вы заметьте какое оживление началось под сесиию,щас людям все равно на знание, главное галочка в синенькой книжечке....

Лап ,а ты вообще хитрый лис.....Кинул под конец, так невзнячай, филосовскую фразу и тут же сказал ,что карать будеш за развитие этой темы.....

[Lapp]

Лап ,а ты вообще хитрый лис.....Кинул под конец, так невзнячай, филосовскую фразу и тут же сказал ,что карать будеш за развитие этой темы.....

Хитрый, но справедливый))

Если кто хочет высказаться по вопросам жалости - милости прошу в Свободное или Дискуссионный Клуб. Не мешайте людям учиться))

PS
ответ на незаданный вопрос: админам можно))