Написать на языке паскаль:

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

Question

Еленя

1 марта, 08:14

+2

Ответы (1)

Знаете ответ на вопрос?

Артемчик · Answer 1

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;

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