Написать на языке паскаль:
Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.
Ответы
Ответ дал:
0
fl := false;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;
Ответ дал:
0
нужно все полностью.и с обьяснением.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад