Форум на NGS.RU ЗАО «НГС» https://forum.ngs23.ru/ https://forum.ngs23.ru/board/programming/flat/1872280759/ 7ZeX Спасибо вам огромное)))Я спасён! programming Thu, 27 Sep 2007 14:03:56 +0400 https://forum.ngs23.ru/board/programming/flat/1872278918/ tpi Прогнал на Free Pascal и отформатировал. [code] program main; var i, even, odd: integer; count: integer; begin even := 0; odd... programming Wed, 26 Sep 2007 19:48:24 +0400 https://forum.ngs23.ru/board/programming/flat/1872278822/ mx Тебе ж на чистом паскале написал человек. [code] var i, s1, s2: integer; value: integer; s1 := 0; s2 := 0; for i := 1 to value div 2 do if (value... programming Wed, 26 Sep 2007 18:52:23 +0400 https://forum.ngs23.ru/board/programming/flat/1872278755/ 7ZeX Люди, плизз напишите мне эту программу на языке турбо паскаль. Мне срочно надо, у меня незачёт открытый. Кто забыл напоминаю, что мне нужна... programming Wed, 26 Sep 2007 17:48:26 +0400 https://forum.ngs23.ru/board/programming/flat/1872271073/ web Ну, раз такой расколбас пошел :) C# (.NET): [code] using System; namespace AmountDividers { class Program { static void Main() ... programming Sun, 23 Sep 2007 10:53:16 +0400 https://forum.ngs23.ru/board/programming/flat/1872270149/ EvilX Можно ещё на питоне. [code] #!/usr/bin/python x = int(raw_input("Input x: ")) even, odd = 0, 0 i = 1 while i programming Fri, 21 Sep 2007 23:43:57 +0400 https://forum.ngs23.ru/board/programming/flat/1872269556/ 7ZeX люди вы можете мне НА ПАСКАЛЕ по подробнее написать:-))) programming Fri, 21 Sep 2007 15:14:35 +0400 https://forum.ngs23.ru/board/programming/flat/1872267437/ tpi В ответ на: --------------------------------------- кошмарный язык :безум: :злорадство: ;) ---------------------------------------Номаный язык... programming Fri, 21 Sep 2007 06:34:55 +0400 https://forum.ngs23.ru/board/programming/flat/1872265937/ mx В ответ на: --------------------------------------- кошмарный язык --------------------------------------- Любители if всегда могут... programming Thu, 20 Sep 2007 12:50:33 +0400 https://forum.ngs23.ru/board/programming/flat/1872265667/ Mad_Dollar с точки зрения читабельности перл еще страшнее ))) programming Thu, 20 Sep 2007 11:33:39 +0400 https://forum.ngs23.ru/board/programming/flat/1872265393/ Господин Уэф! В ответ на: --------------------------------------- if (!(num%i)) (i%2)?s1 =i:s2 =i; --------------------------------------- кошмарный язык... programming Thu, 20 Sep 2007 10:20:08 +0400 https://forum.ngs23.ru/board/programming/flat/1872265003/ mx На C еще короче ;) int i,num=20,s1=0,s2=0; for (i = 1; i programming Thu, 20 Sep 2007 08:03:22 +0400 https://forum.ngs23.ru/board/programming/flat/1872264836/ Picaro var i, s1, s2: integer; value: integer; s1 := 0; s2 := 0; for i := 1 to value div 2 do if (value mod i) = 0 then if (i mod 2)... programming Thu, 20 Sep 2007 06:40:45 +0400 https://forum.ngs23.ru/board/programming/flat/1872264611/ zeus Паскаль забыл, вот на 1С. Процедура Сформировать() Делитель = ИсходноеЧисло; Если Делитель = 0 Тогда Сообщить("На ноль... programming Wed, 19 Sep 2007 20:01:42 +0400 https://forum.ngs23.ru/board/programming/flat/1872264345/ 7ZeX Уважаемые програмисты, у меня возникла такого рода проблема, мне задали домашнее задание по информатике, а я не совсем понял тему. Суть в то что... programming Wed, 19 Sep 2007 15:58:52 +0400