monsters13 M monsters13 Регистрация 25 Ноя 2012 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 25 Окт 2016 #1 program abc; var a,y:real; begin readln(a); if a>1000 and a<10000 or a=1000 then begin y:=a div 1000; end; Writeln; end.
program abc; var a,y:real; begin readln(a); if a>1000 and a<10000 or a=1000 then begin y:=a div 1000; end; Writeln; end.
саня_ С саня_ Регистрация 8 Июн 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 25 Окт 2016 #2 Скобки Позитивный голос 0
Kir K Kir Регистрация 5 Июл 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 25 Окт 2016 #3 var a,y:integer; ... if (a>=1000)and(a<10000) then y:=a div 1000; Позитивный голос 0