Орнектин маннин тауып бериниздеоши отиниш бжб​

-89

—

146. дұрыспа білмеймін

2. Неполное:

If <условия>

then <действия>

Полное:

If <условия>

then <действия1>

Else <действия2>

3. б)

4. Составной оператор предназначен для объединения нескольких действий. Он имеет вид:begin  

операторы  

end;

В условном операторе составной оператор используется для описания нескольких действий: если истина — то составной оператор, если ложь то составной оператор.

Пример:

if a>o then

begin//начало составного оператора

a:=a+1;

b:=a-3;

end;//конец составного оператора

Так же принято называть составной оператор — блоком)

5 в прикрепленном

6 . Var x,a,b,c:integer;

begin

writeln ('введи трехзначное число');

readln (x);

c:=x mod 10;

b:=x div 10 mod 10;

a:=x div 100 mod 10;

if a=с then writeln ('Число является перевертышем')

else writeln ('число не является перевертышем');

if (a=b) or (a=c) or (b=c) then writeln ('да')

else writeln ('нет');

end.

7. var x1,x2,y1,y2:integer;

                     a,b:real;

 begin

 write ('Введите x1 и x2: ');

 readln (x1,x2);

 write ('Введите y1 и y2: ');

 readln (y1,y2);

 a:=sqrt (sqr (x1) + sqr (y1));

 b:=sqrt (sqr (x2) + sqr (y2));

 if a>b then writeln ('1-я точка ближе')

 else writeln ('2-я точка ближе');

 end.

8. Var a ,b,c :real;

Begin

Writeln (‘введите три числа’);

Readln (a,b,c);

If (a<b+c) and (b<a+c)and(c<a+b) then  

Begin  

If (a=b) and (a=c)and (b=c) then Writeln (‘ треугольник равносторонний’)

Else begin  

If (a=b)or(a=c)or(b=c) then Writeln (‘треугольник равнобедренный’)

Else Writeln (‘треугольник разносторонней’);

End;

End

Else Writeln (‘треугольника с заданным сторонами не существует’);

End.

Объяснение: