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

Question

Информатика

Самсоний

20 декабря, 05:02

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

+1

Ответы (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.