Написать программу, которая в зависимости от введенного числа k, выполяняет разные действия. если число отрицательное или не делится на 4, то |k+5|, иначе k²+5.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) var k:integer; begin writeln('Введите k '); readln(k); if (k<0)or (k mod 4<>0) then writeln(abs(k+5)) else writeln (sqr(k)+5); end.
var k:integer;
begin
writeln('Введите k ');
readln(k);
if (k<0)or (k mod 4<>0) then writeln(abs(k+5))
else writeln (sqr(k)+5);
end.