Предмет: Информатика,
автор: AlawerPA
написать программу, определяющую существует ли в указанном пользователем числе заданная цифра
Ответы
Автор ответа:
0
Ответ:
Program p;
var a,s:integer;
Begin
Readln(a, s);
While s <>0 do begin
s := s mod 10;
if (s = a) then begin
writeln('yes');
s :=0;
end
else writeln('no');
if ( a < 10) then writeln('no');
end;
end.
Объяснение:
ctoo13:
Стой, не то сделал, щас перепишу
Через While пожалуйста)
Да-да
Паскаль именно?
Да
Так?
Да
Работает?
Интересные вопросы
Предмет: Английский язык,
автор: ASTROTOP
Предмет: Биология,
автор: mano4ka0top
Предмет: Русский язык,
автор: iikinkaa8
Предмет: История,
автор: MariaV1