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

bbigigitovadakit bbigigitovadakit    2   14.07.2019 20:10    0

Ответы
denislabynsky denislabynsky  07.09.2020 11:48
Uses crt;
var N:integer;
begin
WriteLn('Введите N');
Readln(N);
IF  Not Odd(N) then N:=N*3
else Writeln('Число нечетное');
WriteLn(N);
Readln;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика