1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
А) Кремль, озеро Байкал, Эрмитаж. б) Кремль, парк Горького, Третьяковская галерея. в) ( у каждого свое) реки, музей, парки и т. д.
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
<span>если в Excel, то выделяешь мышкой несколько ЯЧЕЕК любые (например A1 до B1) нажимаешь ПРАВОЙ КНОПКОЙ МЫШИ по ним(ячейкам) ФОРМАТ ЯЧЕЕК а потом в другом ОКНЕ НАЖИМАЕМ ВЫРАВНИВАНИЕ И ТАМ СТАВИМ ГАЛОЧКУ "ОБЪЕДИНЕНИЕ ЯЧЕЕК"</span>
Карп корп кора коза по другому не знаю