Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы