Первое задание можно перефразировать (число меньше 50) или (число четное)
Проверяем 1) 123<50? НЕТ 123 - четное ? НЕТ Итог: НЕТ
2) 56 < 50 НЕТ 56 - четное? ДА Итог: ДА
3) 9 < 50 ? ДА (второе условие можно не проверять - Итог: ДА
4) 8<50 ? Да Итог: ДА
Ответ: 1)
Задание 2 Числа в клетках означают расстояния между пунктами. Берем во внимания только значения над диагональю. Всего таких шесть. Например, число 2 в первой строке на пересечении А и В это расстояние между пунктами А и В,где клетки пустые между этими пунктами нет дороги.
Кратчайшее расстояние между А и Е равно 5 условных единиц: АЕ=АВ+ВС+СЕ=2+1+2
Задание 3 Ответ 1)
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
периметр это сумма длин всех сторон. следовательно для того чтобы найти периметр нужно длину умножить на два и ширину умножить на два потом два ответа сложить (а*2)+(б*2) или же сложить все стороны
1.
1)var a,b,c,P,S:real;beginread(a,b,c);P:=a+b+c;writeln('P=',P);P:=P/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('S=',S);end.
2)var a,b,P,S:real;beginread(a,b);P:=2*(a+b);writeln('P=',P);S:=a*b;writeln('S=',S);end.
3)var a,P,S:real;beginread(a);P:=3.14*2*a;writeln('P=',P);S:=3.14*sqr(a);writeln('S=',S);end.