Дано натуральное число n. выяснить, входит ли цифра 7 в запись числа n2 решение в паскале) буду

Var n: longint;       f: boolean; begin   write ('n = ');   readln (n);   f: =false;   while (n< > 0) do     begin       if (n mod 10)=7 then          begin           f: =true;           break;         end;       n: =n div 10;     end;   if f then writeln ('yes') else writeln ('no'); end.

1. var a,c: integer; m: set of 0..9; b: boolean; begin readln(a); m: =[]; b: =false; while a> 0 do   begin   c: =a mod 10;   if c in m then b: =true;   m: =m+[c];   a: =a div 10;   end; if b then writeln('да') else writeln('нет'); end. пример: 121 да 2. var a,b,c: integer; begin readln(a); c: =a; b: =0; while c> 0 do   begin   b: =b*10+c mod 10;   c: =c div 10;   end; if a=b then writeln('перевертыш') else writeln('нет'); end. пример: 121 перевертыш

Var x,y,i,min,max1,max2: integer; begin writeln(', введите поочередно 3 числа'); readln(x); readln(y); readln(i); if (x< y) and (x< i) then begin   min: =x; max1: =y; max2: =i; end; if (i< y) and (i< x) then begin   min: =i; max1: =y; max2: =x; end; if (y< x) and (y< i) then begin min: =y; max1: =x; max2: =i; end; writeln('минимальное число =',min); writeln('произведение 2-х максимальных =',max1*max2); end. пример работы: , введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192