Ответы
Ответ дал:
0
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Ответ дал:
0
Сорян, оно может быть не паскально, но для меня паскаль не родной, я писал на другом и переводил
Ответ дал:
0
окей, спасибо ❤
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад