Первое задание можно перефразировать (число меньше 50) или (число четное)
Проверяем 1) 123<50? НЕТ 123 - четное ? НЕТ Итог: НЕТ
2) 56 < 50 НЕТ 56 - четное? ДА Итог: ДА
3) 9 < 50 ? ДА (второе условие можно не проверять - Итог: ДА
4) 8<50 ? Да Итог: ДА
Ответ: 1)
Задание 2 Числа в клетках означают расстояния между пунктами. Берем во внимания только значения над диагональю. Всего таких шесть. Например, число 2 в первой строке на пересечении А и В это расстояние между пунктами А и В,где клетки пустые между этими пунктами нет дороги.
Кратчайшее расстояние между А и Е равно 5 условных единиц: АЕ=АВ+ВС+СЕ=2+1+2
Задание 3 Ответ 1)
Сначала узнай сколько всего символов (431×48×53), а потом раздели результат на скорость (136)
const pi = 3.14159265358;
var
m,n : integer;
begin
readln(m,n);
if ((m/n - pi) < (n/m - pi)) then
writeln (2 * m)
else
writeln(2*n);
end.
Возможно туплю, ибо поздно уже. Но у меня получилось так
Т.е 3f в 10-ую, 8-ую
3f(в 16)=111111(в 2)= 77 (в 8) = 63 (в 10)
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>