Дано целое число N.увеличить число в три раза если оно чётное.( записать на языке Паскаля)
Дано целое число 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.
Не нашли ответ?
Похожие вопросы