// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Write('Натуральный логарифм квадрата суммы первого и третьего числа ',
Ln(Sqr(a+c)):0:2)
end.
Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.
A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6
Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>
Нельзя работать с клавиатурой, тыкая по ней посторонним предметом
нельзя заносить напитки, еду в компьютерный класс
если вы обнаружите неполадки с компьютером, сразу скажите об этом учителю
нельзя трогать и наступать провода, шнуры. заталкивать посторонние предметы в вентиляционные отсеки компьютера
нельзя долго сидеть за компьютером
расстояние от глаз до монитора должно состоять 50 см