07.01.2010, 19:50
|
#4 (permalink)
|
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Program DeHb;
Var day :char;
x:real;
begin
readln(day);
case day OF
365-day = x; //недопустимо по правилам синтаксиса языка
end;
writeln (day);
end.
тупо конешно но как смог
|
|
|