у мя вообще всегда руки в краске, чернила, пастели, карандашах, углях))) Вообщем как у истиного художника *смеется*

Харуки, не менее интересный факт *ухмыльнулась*

Бубз, *улыбается*

А прогрмаммирование круче. Сейчас нам задали задание "Задать всего 4 вопроса, ответы которых могут иметь только "да" и "нет", чтобы можно было определить месяц рождения". Сейчас сижу пишу программу.
Привет Паскалю. Зачем он когда-то вообще изобрел калькулятор? =/

Бубз, жесть...эт только методом тыка. Например так *смеется* "Ты родился в январе? Нет. В феврале? Да. 1 числа? Нет..." Ну и так далее)))

Харуки, Ну так не прокатывает) всего 4 вопроса задать. Там сначала спрашиваешь в первом полугодии, потом четверти, потом паре, ну и т.д.
Но страшней всего ПРОГРАММА к ней! Показать? *ухмыльнулась*

Бубз, неее...я как говорится не трус, но я боюсь *нервно смеется*

Правильно делаешь, потому что она не работает =*(

Бубз, а ты ее стукни или наоборот вежлтво попроси и она заработает)))

Тут бубен нужен, определенно *смеется*


programm z;
uses crt;
var a,b,c,d: byte;

begin clrsrc;
writeln ('V pervoy polovine goda?');
writeln ('1-da, 0-net');
readln (a);
writeln ('V pervoy polovine polugodiya?');
writeln ('1-da, 0-net');
readln (b);
writeln ('V pervyh dvuh mesyacah chetverty?');
writeln ('1-da, 0-net');
readln (c);
If (c=0) then begin
If (a=1) and (b=1) then writeln ('Vy rodilis' v marte');
If (a=1) and (b=0) then writeln ('Vy rodilis' v iyune');
If (a=0) and (b=0) then writeln ('Vy rodilis' v dekabre');
If (a=0) and (b=1) then writeln ('Vy rodilis' v sentyabre');
end;
If (c=1) then begin
writeln ('V pervom mesyace etoy pary?');
writeln ('1-da, 0-net');
read (d);
If (a=1) and (b=1) and (d=1) then writeln ('Vy rodilis' v yanvare');
If (a=1) and (b=1) and (d=0) then writln ('Vy rodilis' v fevrale');
If (a=1) and (b=0) and (d=0) then writeln ('Vy rodilis' v mae');
If (a=1) and (b=0) and (d=1) then writeln ('Vy rodilis' v aprele');
If (a=0) and (b=0) and (d=0) then writeln ('Vy rodilis' v noyabre');
If (a=0) and (b=0) and (d=1) then writeln ('Vy rodilis' v oktyabre');
If (a=0) and (b=1) and (d=1) then writeln ('Vy rodilis' v iyule');
If (a=0) and (b=1) and (d=0) then writeln ('Vy rodilis' v avguste');
end;
end;
readkey;
end.


Вопрос, где ошибка? *залилась истерическим смехом*

Да, да, ДА!!! Я его победила ^^
Я забыла поставить скобки после зарезервированного слова If х)

Бубз, боже! Что это за ужас!!!

Это язык высокого уровня =)))

Я знаю только русский и японский и для меня этого хвотит))) Да и к тому же лугче)))

Ты знаешь японский? *челюсть где-то у пяток*
И насколько глубоки твои познания в этом языке? =)

Очень хорошие)))Я фильмы перевожу с ходу)))

Огосподи! Я буду тебе молиться))
И насколько он трудный? Или если знать суть все легко достаточно?

Бубз, самое сложное в письме и правильно зтавить ударение, а остольное уже полегче)))

Эх *тяжелый вздох*
Зато я отчасти знаю язык высокого уровня хР

Бубз, да...я думаю это посложней будет)))Говорить на высоком уровне *смеется* Ужас! *приглаживает вставшие дыбом волосы*

Харуки, Не сколько сложно, сколько память нужно иметь. Языки программирования как диалекты - язык одинаковый, но говорят по-разному.