Все трехбуквенные слова, составленные из букв н, и, к, а, слова записаны в алфавитном порядке и пронумерованы, - id922868120210424 от ivnna2013 24.04.2021 19:38

Question

Информатика: Все трехбуквенные слова, составленные из букв н, и, к, а, слова записаны в алфавитном порядке и пронумерованы, начиная с 0. начало списка выглядит так: 0. 1.ааи 2.аак 3.аан 4.аиа

ivnna2013 · Accepted Answer

Uses Crt; Var    A,B:integer;    P:real;    C:boolean; Begin ClrScr; Write( Введите натуральное число: );ReadLn(B); Write( A = );ReadLn(A); P:=1; C:=false; B:=Abs(B); While B 0 do    Begin    P:=P*(B mod 10);    if B mod 10 = A then C:=true;    B:=B div 10    End; WriteLn( P = ,P); if C then WriteLn( Не верно ) else WriteLn( Верно ); ReadLn End. uses Crt; Var    A:integer; Begin ClrScr; For A:= 100 to 999 do     if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then...

MOGZ ответил