[опять]помогите мне написать программу на паскале

Да.. Но я бы туда с радостью съездил.

это будущий хакер ядра.

что конкретно не получается/не понятно?!

Зато вбрасывать уже умеет.

лепо. Но не пакаль :)

Ну ты сравнил этого неуча с archimag или mv. А срачи там из-за того, что каждый лезет со своими тараканами, что archimag, что Kuka.

а разве можно оператор присваивания пробелом разделять?

Это вообще полная ерунда, а не код

Fat napalm bomb

Брать здеся — http://www.hudeyu.ru/index.php?productID=3

а кушать на ночь, кстати вредно, сны плохие будут сниться

Лучше плохие сны, чем плохая реальность, а то бывают снятся такие хорошие сны, что понимаешь, что реальность полное говно и я не добьюсь никогда того, что добился во сне.

«посели победу в своём сердце и ты выйграешь битву»
очень дословно и не помню кто, но вроде из StarTrek'а фраза

Я не тролль, да и вообще не жирный, мне не надо худеть.

Ой хватит, размечтался, лучше быть пессемистом и чтобы в жизни получалось всё лучше ожиданий, чем оптимистом и хуже.

готовься к худшему, надейся на лучшее

и это, как говорил Мклухо-Маклай - «Ставьте перед собой нереальные планки, что-бы понять на что вы способны »

Злобно открыл Monodevelop и...

using System;

namespace Lulz
{
	class MainClass
	{
		public static void Main (string[] args)
		{
			Console.WriteLine (DateTime.DaysInMonth(2011,6));
		}
	}
}

Почему этот щютник еще здесь?

эх(с)
а теперь будет задание на «5+»: високосные года тоже нужно учитывать, а «год является високосным, если он кратен 4 и при этом не кратен 100, либо кратен 400»
P.S. надеюсь у будующего было^Wмегакодера хватит способнойстей и знаний паскаля для пары-тройки if-ов :)

ты будешь обязан нам предоставить «скан» дневника с оценкой по информатике

а теперь будет задание на «5+»: високосные года тоже нужно учитывать, а «год является високосным, если он кратен 4 и при этом не кратен 100, либо кратен 400»

Этот паскаль просто ужасен, когда надо писать такие условия:

writeln(28 + ord( ( (n mod 4 =0) and not (n mod 100 =0) ) or (n mod 400 =0) ) );

Впрочем, он и в остальном ужасен.

пары-тройки if-ов

if-ы не нужны, не учи человека плохому. :D

>if-ы не нужны, не учи человека плохому. :D

writeln(28 + ord( ( (n mod 4 =0) and not (n mod 100 =0) ) or (n mod 400 =0) ) );

Write-only код не нужен, это да.

В паскале любой код write-only. Паскаль не нужен, это да.

http://ru.science.wikia.com/wiki/Високосный_год

Чтобы средний календарный год лучше соответствовал солнечному, было решено изменить правило високосных лет. По-прежнему високосным оставался год, номер которого кратен четырём, но исключение делалось для тех, которые были кратны 100. Отныне такие годы были високосными только тогда, когда делились ещё и на 400.
Иными словами, год является високосным, если он кратен 4 и при этом не кратен 100 либо кратен 400. Год не является високосным, если он не кратен 4 либо кратен 4, но при этом кратен 100 и не кратен 400.

http://slovari.yandex.ru/~книги/БСЭ/Високосный%20год/

По новому стилю високосным является каждый год, число которого делится на 4 без остатка, за исключением тех годов, числа которых оканчиваются на 2 нуля, но не делятся на 400 (например, годы 1700, 1800, 1900 не являются високосными).

да, извращенцы еще не перевелись. слава яйцам, мне это вряд ли понадобится

Hedgewars написаны на этом фрипаскале. Неспроста это!

Ну вот, думал что интересного, вспомню былое, а тут...

Ладно пойду на http://projecteuler.net/

> ты будешь обязан нам предоставить «скан» дневника с оценкой по информатике
так очевидно же, что «отл.» :))

с подписью «Привет LOR»

Прочитал:

вот наше расписание практики профилактики по информатике

Хеллоуворлды тоже должны быть Ынтерпрайзными! Чтобы работодатель проникся )

А сиськи училки уже были?

Посоны, там вирус!
Пишу с батиного утюга.

Тег [сарказм] забыл

спасибо, очень понравилось.

P.S. там ведь вместо *++argc должен быть *++argv или это какой-то хитрый хак?

> там ведь вместо *++argc должен быть *++argv или это какой-то хитрый хак?

Это я просто в объявлении функции названия переменных случайно перепутал:

int argv, char** argc

а потом опять перепутал когда писал *++argc.

>Не не не, я хочу стать водителем автобуса, как filosof

я бы на его месте дал тебе по башке монтировкой. это бы тебе помогло

var i:integer; begin readln(i); case i of 1,3,5,7,8,10,12: writeln('31'); 4,6,9,11:writeln(30); else writeln('visokosnii 29, nevisokosnii 28'); end.

d можно проверить в case.

var n: integer;
begin
  readln(n);
  case n of
    2: writeln('Feb (28,29) day');
    4,6,9,11: writeln('30 day');
    else if not (n in [1 .. 12]) then writeln('Error')
    else writeln('31 day')
  end
end.

Спокойно открыл fp.

uses
  sysutils, dateutils;
begin
  writeln(DaysInMonth(EncodeDate(2012,2,1)));
end.

Гуглится же весьма просто.

уже поздно, он уже отхватил от училки за не выпоненое задание

а было фото училки? ато я бы вдул

facepalm.png

почему нынче школота думать отказывается?

нет но в коком-то его посте, были фотки маши, его одноклассницы.

anonymous> > ато я бы вдул

nickionn> в коком-то его посте, были фотки маши, его одноклассницы.

Стоп - это уже педофилия.

Ты на что анонимуса подбиваешь? :)