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

Question

Информатика

Аксюта

11 июня, 00:30

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

+4

Ответы (1)

Знаете ответ?

Иакинф · Answer 1

Uses crt;

var N:integer;

begin

WriteLn ('Введите N') ;

Readln (N) ;

IF Not Odd (N) then N:=N*3

else Writeln ('Число нечетное') ;

WriteLn (N) ;

Readln;

End.