помогите с задачей на Pascal

Автор XEON, 28 Февраля 2008, 21:22:43

« предыдущая тема - следующая тема »

0 Пользователей и 1 Гость просматривают эту тему.

XEON

Подскажете пожалуйста правильно ли сделано?И какие есть еще варианты решения данной задачи?

задача : гадаешь на ромашке:любит ,не любит.каким будет ответ(любит или не любит) за исходное брать количество ЛЕПЕСТКОВ


uses wincrt;
var x=integer;
begin
write(Vvedite 4islo lepestkov ot 0,i menshe 21');
read(x);
cause x of
1 writeln('Lubit');
2 writeln('Ne Lubit');
3 writeln('Lubit');
4 writeln('Ne Lubit');
5 writeln('Lubit');
6 writeln('Ne Lubit');
7 writeln('Lubit');
8 writeln('Ne Lubit');
9 writeln('Lubit');
10 writeln('Ne Lubit');
11 writeln('Lubit');
12 writeln('Ne Lubit');
13 writeln('Lubit');
14 writeln('Ne Lubit');
15 writeln('Lubit');
16 writeln('Ne Lubit');
17 writeln('Lubit');
18 writeln('Ne Lubit');
19 writeln('Lubit');
20 writeln('Ne Lubit');
end;
end.

wats

На слабенькую троечку сойдёт. Усложним задачу - ромашка чернобыльская и в ней 1244 лепестка  [sm30] . Пиши код  [sm29] .
www.radikal.ru" target="_blank">http://i081.radikal.ru/1110/38/266505f52f4d.jpg" border=0 alt="http://i081.radikal.ru/1110/38/266505f52f4d.jpg">
www.radikal.ru" target="_blank">http://s53.radikal.ru/i140/1110/b3/ebed02f191dd.gif" border=0 alt="http://s53.radikal.ru/i140/1110/b3/ebed02f191dd.gif">

MAKO

Аее дилетант)
вот как должно выглядеть

Program cvet;
var a:integer;
begin
Writeln('Vvedite chislo');
readln(a);
a:=a mod 2; {MOD- остаток от деления}
if a=1 then writeln('Lybit')
else writeln('ne lybit');
end.

КПИ-7

На третьем курсе начали мы криптологию и шифрование изучать. Мрак! Там такие формулы, такие хитрые методы, без поллитра не разберёшься. Я думал, что умру, но зачёт не получу. Наткнулся в инете на сайтик www.fformula.net" target="_blank">www.fformula.net пишут, мол, решаем задачи. Ага, вот вам! Дай, думаю напишу, посмеюсь над ними, как они смогут в этой хренотени разобраться. Они меня обломали [sm30] и обрадовали, во всём разобрались, все 6 задачек по шифрованию сделали без сучка и задоринки, даже не поверил сначала, думал прикалываются. Преподу мои проги понравились, не знал куда от стыда деться, ну да главное зачёт получен, а теорию я уже сам сдал на "хорошо" [sm30]

olenytko

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

olenytko

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

КПИ-7

Если чесно, то не люблю я прогать, а вот ребята молодцы, сделали как надо:)

olenytko

зачем тогда поступать на ту специальность, чт о ыт поступил? зачем там 5-6 лет учится?