Найти все двузначные числа, которые делятся на n и содержат в себе цифру n
P.S. написать программу в Паскале через цикл while
Ответы
Ответ дал:
0
Var
A,N,C:byte;
B:boolean;
Begin
B:=false;
Write('N = ');ReadLn(N);
A:=10;
While A<100 do
Begin
if A mod N = 0 then
Begin
C:=A;
While C<>0 do
Begin
if C mod 10 = N then B:=true;
C:=C div 10
End;
if B then Write(A,' ');
B:=false
End;
A:=A+1
End
End.
A,N,C:byte;
B:boolean;
Begin
B:=false;
Write('N = ');ReadLn(N);
A:=10;
While A<100 do
Begin
if A mod N = 0 then
Begin
C:=A;
While C<>0 do
Begin
if C mod 10 = N then B:=true;
C:=C div 10
End;
if B then Write(A,' ');
B:=false
End;
A:=A+1
End
End.
Ответ дал:
0
Строку Write('N = ');ReadLn(N); на N:=random(9)+1;
Ответ дал:
0
А что вместо false
Ответ дал:
0
Boolean - это тип данных, как integer, real и т.д.
Boolean - логический тип, то есть он принимает всего два значения: истина (true) или ложь (false) .
Чтоб её заменить, нужно чуть ли не всю прогу переписать...
Boolean - логический тип, то есть он принимает всего два значения: истина (true) или ложь (false) .
Чтоб её заменить, нужно чуть ли не всю прогу переписать...
Ответ дал:
0
Пожалуйста сделайте
Ответ дал:
0
Я вас прошу
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад