Выпишу только высказывания.
1)
Число 6 - четно (Истинно)
Все роботы - машины (Истинно)
У каждой лошади есть хвост (Истинно)
Есть кошки, которые дружат с собаками (Истинно)
Всякий моряк умеет плавать (Ложь)
2)
Ложь
Истина
Истина
Истина
Истина
Истина
Истина
Истина
4. c=90
5. c=135
6. s=30
делал в Паскале, надёжно
Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>
1111110010<span>- количество нулей - 3</span>
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.