Question

не смог здедать помогите пж

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var x := ReadlnReal('Введите х = ');
    if x = 0 then writeln('null')
    else  begin
        if x = 2 then writeln('y = ', sqrt(sqr(x) + 2));
        if (x >= 3) and (x <= 6) then writeln('y = ', 3 * sqr(x) - 5);
    end;
    writeln;
    
    var n := ReadlnInteger('Введите n = ');
    writeln('Квадрат числа = ', n * n);
    writeln('Последняя цифра квадрата по последней цифре числа = ', sqr(n mod 10) mod 10);
    writeln;
    
    var a := ReadlnReal('Введите a = ');
    var b := ReadlnReal('Введите b = ');
    var c := ReadlnReal('Введите c = ');
    writeln('Сумма = ', abs(a + b + c));
end.