Program aa; var n: integer; begin write ('Введите число: '); readln (n); if (n>=0) and (n<=10) then writeln(n, ' Принадлежит отрезку от 0 до 10') else writeln(n, ' Не принадлежит отрезку от 0 до 10'); end.
Var a : integer; begin readln (a); if (a >= 0 ) and (a <= 10) then writeln ('Число принадлежит отрезку') else writeln ('Число не принадлежит отрезку'); readln (); end.
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016 function gcd(a,b:integer):integer; // Нахождение НОД var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; Result:=a end;
begin var a:=ReadInteger('a='); var b:=ReadInteger('b='); var nod:=gcd(a,b); if nod>1 then WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}', a,b,a div nod,b div nod) else WritelnFormat('Дробь {0}/{1} несократима',a,b) end.
var
n: integer;
begin
write ('Введите число: ');
readln (n);
if (n>=0) and (n<=10) then
writeln(n, ' Принадлежит отрезку от 0 до 10')
else
writeln(n, ' Не принадлежит отрезку от 0 до 10');
end.