|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Даны натуральные числа n, A1, ..., An. Определить количество членов Ak последовательн
Даны натуральные числа n, A1, ..., An. Определить количество членов Ak
последовательности A1, ..., An: а) являющихся нечётными числами; б) кратных 3 и некратных 5; в) являющихся квадратами чётных чисел; Помогите, кто чемсможет |
#2
|
|||
|
|||
Вот же студенты ленивые пошли...
Код:
const N = 100; MsgFmt = 'а) %d, б) %d, в) %d'; var A : Array Of Integer; I : Integer; Cnt1, Cnt2m Cnt3 : Integer; Msg : String; begin // Init the array SetLength(A,N); For I := Low(A) To High(A) Do A[i] := Random(1000); // Do the task Cnt1 := 0; Cnt2 := 0; Cnt3 := 0; For I := Low(A) To High(A) Do Begin If A[i] mod 2) <> 0 Then Inc(Cnt1); If ((A[i] mod 3) = 0) And ((a[i] mod 5) <> 0) Then Inc(Cnt2); If (sqr(Round(sqrt(A[i]))) = A[i]) And (sqrt(A[i]) mod 2 = 0) Then Inc(Cnt3); End; Msg := Format(MsgFmt,[Cnt1,Cnt2,Cnt3]); ShowMessage(Msg); // Для оконного режима // WriteLn(Msg); // Для консоли end; |