Объяснение:
Он был очень высок ростом (1 метр 93 сантиметра) и худощав, что делало его фигуру угловатой. Черты лица президента были резко очерчены, в глаза бросались высокие скулы и впалые щеки, крупный нос и глубоко посаженные глаза. У президента была густая черная шевелюра, своеволие которой приводило в отчаяние парикмахеров. Линкольн позволял себе вольности не только в прическе, но и в одежде. Современники отмечали, что она сидела на нем, как на вешалке, жилет морщился, брюки имели мешковатый вид. Однако костюмы Линкольна всегда отличалась безукоризненной чистотой. e-reading.club
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.
Объяснение: