Выберите верное утверждение: а) Один объект может иметь только одну модель
Ответы на вопрос:
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.
Объяснение:
Популярно: Другие предметы
-
ymolyauy06.07.2021 20:30
-
konkina12.09.2022 11:16
-
mariyer08.08.2021 00:41
-
sofiko0716122.03.2021 17:29
-
komogortseva010122.01.2020 23:41
-
apexXx05.05.2023 09:45
-
Ангелюся1020.06.2021 16:50
-
kamilya1495711.10.2020 04:53
-
niknikiforov9124.11.2022 18:18
-
Рооопапооугвр19.07.2022 21:18