Версия для печати темы

Автор: Malder 26.02.2003 14:39

все сделал а 2 и 3 не могу уже 10 раз читал помогите. :-[

Автор: Clane 26.02.2003 15:55

Насчет часов и приветствия !
program nineteen;
uses crt;
var
chas:Byte;
begin
clrscr;
write('‘Є®«мЄ® ᥩз б ўаҐ¬Ґ­Ё (­ ЇЁиЁвҐ жЁда ¬Ё): ');
readln(chas);
if chas>=6 then
if chas<12 then write('„®Ўа®Ґ гва®!')
else
if chas>=12 then
if chas<18 then write('„®Ўал© ¤Ґ­м!')
else
if chas>=18 then
if chas<22 then write('„®Ўал© ўҐзҐа!')
else
if chas>=22 then
if chas<=24 then
write('„®Ўа®© ­®зЁ!');
if chas<6 then write('„®Ўа®© ­®зЁ!');
if chas>24 then write('‚л б г¬  б®и«Ё, зв® «Ё?');
readln;
end.
Это программа со строками !
program eighteen;
uses crt;
var
c,d:Char;
s,h:String;
label
again;
begin
clrscr;
again:
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('•ў вЁв ўў®¤Ёвм бЁ¬ў®«л? (Y/N): ');
readln(d);
if d<>'Y' then
goto again
else
write('‚ўҐ¤ЁвҐ бва®Єг: ');
readln(h);
if h=s then
begin
writeln('‘Ё¬ў®«л Є®в®алҐ ўл ўў®¤Ё«Ё Ё ў и  бва®зЄ  б®ўЇ ¤ ов!');
write(s, ' = ',h);
readln;
end
else
begin
writeln('‘Ё¬ў®«л Є®в®алҐ ўл ўў®¤Ё«Ё Ё ў и  бва®зЄ  ­Ґ б®ўЇ ¤ ов!');
write(s,' <> ',h);
readln;
end;
end.

Автор: Vit 26.02.2003 17:19

Не понял, как можно ответить на этот вопрос?

Автор: Clane 26.02.2003 23:51

Я уже ответил, так что будь спокоен !

Автор: Vit 27.02.2003 0:26

Так надо было так форум и называть - форум такого-то курса, такого-то университета... Чтоб такие как я понимали, что им тут делать нечего!

Автор: Ivs 27.02.2003 0:41

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

P.S : но задания выложить конечно бы не помешало

Автор: Vit 27.02.2003 2:30

Я не только не был на ихнем сайте, я даже не знаю кто это такой "их", не имею ни малейшего представления о каком-то там сайте...

Автор: Ivs 27.02.2003 16:30

http://pascal.dax.ru- сайт о Паскале, рассчитан для новичков.
P.S : Vit, поэтому и небыл  ;)