Напишіть функцію, що обнуляє елементи списку що стоять на непарних місцях. в тони
177
179
Ответы на вопрос:
var a,b,c: longint;
begin
readln(a);
if a mod 2=0 then
a: =a-1
else a: =a*2;
writeln(a);
end.
Популярно: Информатика
-
Kotnakompe23.03.2022 11:23
-
fkbithxtvg16.06.2023 04:02
-
RUStepan514.03.2021 18:00
-
kristinakwai06.04.2020 21:16
-
Kachelda07.02.2021 03:18
-
eduard2222209.09.2021 02:55
-
kamil777729.04.2021 21:15
-
Galor07.05.2020 20:13
-
vans1000405.02.2021 10:34
-
AlinaLove20041305.11.2021 15:37