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

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

Question

Эвелина

31 августа, 03:07

+1

Ответы (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, если оно содержит в своей записи хотя бы одну единицу.