Uses crt; var n,a,b,c,m:integer; begin clrscr; write('Vvesti 3-x znachnoe chislo '); readln(n); c:=n mod 10; a:=n div 100; n:=n div 10; b:=n mod 10; writeln('cifri chisla ',a:3,b:3,c:3); write('vvesti cifru '); readln(m); if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO'); writeln('end programm '); readkey; end. Program pr1; uses crt; var a,r:real; begin clrscr; write('Vvesti storonu kvadrata A '); readln(a); write('Vvesti radius kruga R '); readln(r); if 2*r =a then writeln('krug vpisan v kvadrat') else if abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug') else writeln(' ne vpisivajutsya'); writeln('end programm '); readkey; end.
Program filework; var f:text; i, n, count:integer; l:string; arr:array of real; answ:real; begin assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу reset(f); while not eof(f) do begin readln(f, l); if StrToFloat(l) > 0 then Inc(count); end; SetLength(arr, count); reset(f); i:=0; while not eof(f) do begin readln(f, l); if StrToFloat(l) > 0 then begin arr[i]:=StrToFloat(l); Inc(i); end; end; answ:=arr[0]; for i:=1 to arr.Length - 1 do if arr[i] < answ then answ:=arr[i]; writeln(answ); close(f); end.
P.S. Программа работает с неограниченным числом положительных чисел в файле
