Регистрация
lirazelio
13.11.2022 17:18
Информатика
Есть ответ 👍

Какие компоненты расположены на форме? Перечислите их!

116
166
Посмотреть ответы 1

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

bellanik2p06zxf
bellanik2p06zxf
4,7(2 оценок)

program NK;

var

K, N: integer;

begin

write('Число N: ');

readln(N);

write('Цифра К: ');

readln(K);

while (N <> 0) do

begin

if ((N mod 10) = K) then

begin

writeln('Есть');

halt;

end;

N := N div 10;

end;

writeln('Нет');

readln;

end.

Объяснение:

Популярно: Информатика