дано целое число N.увеличить число в три раза если оно чётное.( записать на языке Паскаля)
Answers & Comments
mlada08
Uses crt; var N:integer; begin WriteLn('Введите N'); Readln(N); IF Not Odd(N) then N:=N*3 else Writeln('Число нечетное'); WriteLn(N); Readln; End.
Answers & Comments
var N:integer;
begin
WriteLn('Введите N');
Readln(N);
IF Not Odd(N) then N:=N*3
else Writeln('Число нечетное');
WriteLn(N);
Readln;
End.