Написать на языке паскаль:Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.

Question

Написать на языке паскаль: Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.

Гость

Ответ(ы) на вопрос:

Accepted Answer

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;