Задачи по программированию
(в паскале) .
Помогите плиз, если разбираетесь в информатике!
Хелп
Приложения:
![](https://st.uroker.com/files/689/6895e5e38fba143609b1e2e6cc88f017.jpg)
Ответы
Ответ дал:
1
Ответ:
var N, ans, digit: integer;
begin
readln(N);
for var i := 0 to 4 do
begin
digit := N div round(power(10, i)) mod 10;
if digit mod 2 = 0 then
digit := digit + 1;
ans := ans + digit * round(power(10, i));
end;
writeln(ans);
end.
Объяснение:
- Считываем число
- В цикле 5 раз для каждой цифры:
- Определяем эту цифру целочисленным делением на 10 в соотв. степени и взятием остатка от деления на 10
- Если цифра четная, то добавляем к ней 1
- К переменной ответа добавляем новую цифру, домноженную на соотв. степень
- Выводим ответ
anna4kalitvinenko:
Спйасибо,что старались помочь,но этот ответ не защитали((
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад