Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','Й','Ц','К','Н','Ш','Щ','З','Х','Ф','В','П','Р','Л','Д','Ж','Ч','С','М','Т','Б']; var str: string;i: byte; begin readln(str); for i:=1 to length(str) do begin if str[i] in g then writeln (str[i]); end; end.
Var n,max:real; begin max:=-maxint; writeln('Вводите числа'); repeat repeat readln(n); if (n<>round(n)) then writeln('Введено не целое!'); until (n=round(n)); if n>max then max:=n; until n=0; writeln('Максимум: ',max); end. _______________________ var n1,m1:real; n,m,c,result,ost:integer; begin ost:=1; writeln('Введите 2 числа'); repeat readln(n1,m1); if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!'); until (n1=round(n1))and(m1=round(m1)); n:=round(n1); m:=round(m1); while ost<>0 do begin if m>n then begin c:=m; m:=n; n:=c; end; ost:= n mod m; result:=m; n:=ost; end; writeln('НОД: ',m); end.