Составить алгеритм удвоения нечетного числа и увеличения в три раза четного
Составить алгеритм удвоения нечетного числа и увеличения в три раза четного
Гость
Ответ(ы) на вопрос:
Гостьvar n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
Не нашли ответ?
Похожие вопросы