Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дано целое число N.увеличить число в три раза если оно чётное.( записать на языке Паскаля)

Ответ оставил Гость

Uses crt;
var N:integer;
begin
WriteLn(Введите N);
Readln(N);
IF  Not Odd(N) then N:=N*3
else Writeln(Число нечетное);
WriteLn(N);
Readln;
End.