Var a,b:integer; begin writeln('Введите площадь круга, затем квадрата'); read (a,b); if b>a then writeln('Поместится') else writeln('Не поместится'); end.
Var a,d,krug,kvad: real; begin write('Введите площадь круга: '); readln(krug); write('Введите площадь вадрата: '); readln(kvad); d:=2*sqrt(krug/Pi); a:=sqrt(kvad); if d<a then writeln('Поместится') else writeln('Не поместится'); end.
var s:string; {функция проверки на палиндром} function palind(s:string):boolean; var i:integer; fl:boolean; begin fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; Result:=fl end;
{основная программа} begin writeln('Введите строку...'); readln(s); if palind(s) then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
Без функции: var s:string; i:integer; palin:boolean; {основная программа} begin writeln('Введите строку...'); readln(s); fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; if palin then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
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.
begin
writeln('Введите площадь круга, затем квадрата');
read (a,b);
if b>a then
writeln('Поместится')
else
writeln('Не поместится');
end.