Пользователь вводит длины катетов прямоугольного треугольника. По желанию пользователя программа вычисляет либо квадрат гипотенузы треугольника, либо периметр треугольника. Результат выводится на метку Label, а исходные данные – в текстовый файл.

Критерии оценивания

- создание оригинального интерфейса в соответствии с условием задачи –

- ввод данных из текстового поля Entry или Text –

- вывод данных на метку Label –

- программная запись исходных данных в текстовый файл –

- выполнение вычислений –

- организация выбора с Radiobutton или Checkbutton –

- программа выполняет поставленную задачу и работает без ошибок –

Все слова/анаграммы, которые можно составить из слова "сканер"

Из "сканер" можно составить 58 слов из 2,3,4,5 букв.

Слова из 2 букв, составленные из комбинации "сканер" (12 слов):

ан ар ас ер ка кн кр на не нс ре се

Слова из 3 букв, составленные из комбинации "сканер" (22 слова):

акр аре арк аск ера кар кеа кен кер кнр нар нас нес рак рен рнк сак сан сен сер сна сне

Слова из 4 букв, составленные из комбинации "сканер" (13 слов):

акне енка каре керн крае кран крен раек река саек саке сена сера

Слова из 5 букв, составленные из комбинации "сканер" (11 слов):

аксен анкер аскер кенар нарек насек нерка серка серна скарн скена

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.