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

Автор: Вацура 8.12.2006 12:17

Здравствуйте. Мне опять нужна помощь

Вот код:

uses crt;
var a,b:integer;
begin clrscr;
writeln(''в_дит_ чис<R:'); readln(a);
If (a<100) and (a>=10) then
 begin
 b:=a mod 2;
 If b=1 then
 writeln('_ т в _ т: чис<R',a,'яв<я_ться -_ч_т-ым ц_<ым двуз- ч-ым чис<Rм')
 else writeln('_ т в _ т: чис<R ',a,' яв<я_ться ч_т-ым ц_<ым двуз- ч-ым чис<Rм');
 end;
else writeln('_ т в _ т: д --R_ чис<R -_ яв<я_ться двуз- ч-ым');
readln;
end.

Немогу найти ошибку в операторе, может у меня неправильная структура?

Автор: Ozzя 8.12.2006 12:25

Перед вторым else поставил ;

Нельзя.