Ввести число a решите неравенство ax< -5 на паскале с if the else 10 класс

var a: integer;

begin

var infinity: =#8734;

var elementof: =#8712;

writeln('ax < -5');

write('введите a: ');

readln(a);

if a = 0 then

begin

writeln('нет решений');

exit;

end;

if a > 0 then

writeln('x '+elementof+' (-'+infinity+'; ',(a/-5),')')

else

writeln('x '+elementof+' (',(a/-5),'; +'+infinity+')');

end.

Function simpl(n: integer): boolean; var i,k: integer; begin     i: =2;     k: =round(sqrt(n));     while ((n mod i)< > 0) and (i< =k) do        i: =i+1;     simpl: =(i> k) end; // основная программа var n: integer; begin   write('простое число: ');   readln(n);   repeat       n: =n+1;   until simpl(n);   writeln('следующее простое: ',n); end. простое число: 119 следующее простое: 127

1) var

a, b, c, S, P : real;

begin

write('Введите катет a : ');readln(a);

write('Введите катет b : ');readln(b);

c := sqrt(sqr(a)+sqr(b));

P := a + b + c;

S := (a*b)/2;

writeln('Периметр равен : ', P);

writeln('Площадь равна : ', S);

readln;

end.

2) program choice_2;

uses crt;

var year: integer;

begin

clrscr;

write(‘Ваш возраст > ‘); readln(year);

if (year > 0) and (year < 18) then

write(‘Вы не достигли совершеннолетия’)

else if (year > 17) and (year < 150) then

write(‘Вы достигли совершеннолетия’)

else write(‘Вероятно, введены неверные данные’);

readkey;

end.

3) uses crt;

Var n,m,p,k:integer;

Begin

write('n=');read(n);

m:=n;k:=0;

while m<>0 do begin

p:=m mod 10;

K:=K+1;

m:=m div 10;

end;

writeln('k=',k);

end.