Ответ:
Если хотя бы один город называется чётным числом, то он соединён со всеми остальными городами
Программа для паскаля
program treug;
var a,b,c: integer;
begin
write (' Введите длины сторон ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln (' Треугольник существует')
else writeln (' Треугольник не существует ');
end.
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>
1. = А(B+B+C) = A(2B + C)
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>