Дан массив из n целых элементов и целое число b. сколько раз в массиве встречается число b?

1. начало 2.  k=0, i=0;   ввести: b,  n, m[n]   // m[n] -  массив из n элементов 3. если m[i] = b, то k=k+1 //  m[i] обращение к i-ному элементу массива 4. если i< n, то i=i+1 и вернутся в п.3 5. вывести: k 6. конец

Program aaa; var m: array[1..1000000] of longint; n,b,count,i: longint; begin writeln('введите размер массива'); read(n); writeln('введите искомое число b'); read(b); writeln('введите массив'); for i: =1 to n do    read(m[i]); count: =0; for i: =1 to n do    if m[i]=b then      inc(count); writeln('в данном массиве всего ',count,' чисел(а) ',b)   end. 

Lazarus-та жоба жасау екі кезеңнен тұрады: жобаның сыртқы пішінін жасау және программалық кодын жазудан тұрады. Жобаның интерфейсін жасауға жоба пішінінің терезесі мен программа кодын жазу редакторын өзара тығыз байланыста қолданамыз. Жоба пішінінің терезесіне жаңа компоненттерді енгізсек, программа кодының құрылымыда автоматты түрде өзгереді. Алғашқы жобаны дайындауды бастайық.

Жоба дайындау төмендегі кезеңдерден тұрады:

1. Пуск – Программы – Lazarus командасын орындап, программа ерезесін ашамыз.

Lazarus терезесі ашылғанда терезеде жоғарыда айтылған мәзір, компонент платформасы, объекттер инспекторы, жоба пішіні терезесі мен программа коды редакторының терезесі пайда болады.

2. Тінтуір арқылы мәзірдегі «Файл=>Создать форму» команда-сын таңдасақ, программа терезесінде «Жоба пішіні» және «Бастапқы код редакторының» терезесі пайда болады (5.5, 5.6-суреттер).

3. «Объекттер инспекторы (Инспектор объектов) => Қасиет (Свойства) => Caption (тақырып)» командаларын таңдап, оған «Жоба пішіні» деп жазып, жобаның тақырыбын өзгертеміз (5.8-сурет).

5.8-сурет. Жоба пішінінің тақырыбын өзгерту

4. «Жоба пішініне» батырма қосу үшін компонент платформасынан «Button1» батырмасын таңдаймыз (5.9-сурет).

5.9-сурет. Пішінге «Button1» батырмасын енгізу

Бейсик Python

DIM N, S AS INTEGER

N = 1

S = 0

WHILE N <= 100

S = S + 30

N = N * 2

WEND

PRINT S

n = 1

s = 0

while n <= 100:

   s = s + 30

   n = n * 2

print(s)

Паскаль Алгоритмический язык

var n, s: integer;

begin

   n := 1;

   s := 0;

   while n <= 100 do

   begin

       s := s + 30;

       n := n * 2

   end;

   write(s)

end.

алг

нач

цел n, s

n := 1

s := 0

нц пока n <= 100

   s := s + 30

   n := n * 2

кц

вывод s

кон

Си++

#include <iostream>

using namespace std;

int main()

{

   int n, s;

   n = 1;

   s = 0;

   while (n <= 100)

   {

       s = s + 30;

       n = n * 2;

   }

   cout « s « endl;

}

Объяснение: