Function prime(x:integer):boolean; var t:boolean; d:integer; begin t := true; d := 2; while t and (d*d <= x) do begin if x mod d = 0 then t := false; d := d + 1 end; prime := t end;
function order(x:integer):boolean; var t:boolean; d:integer; begin d := -1; repeat t := x mod 10 > d; d := x mod 10; x := x div 10 until not t or (x = 0); order := t end;
var t:boolean; i,k,n:integer; begin t := false; read(k,n); for i := k to n do if prime(i) then if order(i) then begin write(i,' '); t := true end; if not t then write(0) end.
1.НАЧАЛО 2.Взять чистую сковороду 3.Поставить сковороду на огонь. 4.Налить немного масла 5.Если масло разогрелось, то перейти к шагу 8 6.Подождать 2 минуты 7.Перейти к шагу 5. 8. Разбить на сковороду 3 яйца 9. Уменьшить огонь до минимума 10. Посолить яичницу 11. Накрыть сковороду крышкой (я люблю прожаренные и сверху) 12. Подождать 7 минут. 13. Снять сковороду с огня. 14. Выложить яичницу на тарелку. 15. Положить на тарелку по вкусу майонез, лук, колбасу и проч. 16. Приятного аппетита! 17. КОНЕЦ
