Помогите пожалуста

Поделиться12007-06-18 04:32:09

Автор: Hause
Новичок
Зарегистрирован: 2007-06-18
Приглашений: 0
Сообщений: 5
Провел на форуме:
40 минут
Последний визит:
2007-07-05 16:07:51

Кто может помогите нужно написать прогу на PAscale
1.Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество элементов массива кратных 3, но не кратных 5.

2. При поступлении в вуз абитуриенты, получившие двойку на первом экзамене, ко второму не допускаются. В массиве A[n] записаны оценки экзаменующихся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.

3. Составить программу подсчета в заданном тексте количества вхождений символов из заданного набора.

4.Дана строка, состоящая из нескольких слов, между словами стоит один пробел, в конце –точка. Подсчитать количество слов и вывести на экран только те из них, которые начинаются с буквы «л» (слов не больше 30).

5. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой последовательности.

Отредактировано Hause (2007-06-19 17:39:55)

Поделиться22007-06-19 01:14:59

Автор: LALALA
Администратор
Откуда: Таганрог
Зарегистрирован: 2007-04-30
Приглашений: 0
Сообщений: 130
Пол: Мужской
Возраст: 38 [1986-04-02]
Провел на форуме:
1 час 39 минут
Последний визит:
2008-11-21 19:57:40

после обеда сделаю! а ща спать!

Поделиться32007-06-19 17:10:03

Автор: LALALA
Администратор
Откуда: Таганрог
Зарегистрирован: 2007-04-30
Приглашений: 0
Сообщений: 130
Пол: Мужской
Возраст: 38 [1986-04-02]
Провел на форуме:
1 час 39 минут
Последний визит:
2008-11-21 19:57:40

ЗАДАЧА 1

Код:

program Krat;
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k:integer;
  begin
  clrscr;
  randomize;
 for i:=1 to n do
 a[i]:=random(10*n)+1;

 for i:=1 to n do
 write(a[i],' ');
 writeln;
 for i:=1 to n do
  begin
      if (a[i] mod 3=0) and (a[i] mod 5 <>0) then
      begin
           k:=k+1;
           write(a[i],' ');
      end;
  end;
  writeln;
    writeln('Kol-vo-',k);
    readln;
    end.

Поделиться42007-06-19 17:11:18

Автор: Hause
Новичок
Зарегистрирован: 2007-06-18
Приглашений: 0
Сообщений: 5
Провел на форуме:
40 минут
Последний визит:
2007-07-05 16:07:51

пожалуста сделай буду должен

Поделиться52007-06-19 17:11:24

Автор: LALALA
Администратор
Откуда: Таганрог
Зарегистрирован: 2007-04-30
Приглашений: 0
Сообщений: 130
Пол: Мужской
Возраст: 38 [1986-04-02]
Провел на форуме:
1 час 39 минут
Последний визит:
2008-11-21 19:57:40

ЗАДАЧА 2

Код:

program abitura
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k:integer;
  begin
  clrscr;
  randomize;
 for i:=1 to n do
 a[i]:=random(4)+2;
writeln('spisok ocenok');
 for i:=1 to n do
 write(a[i],' ');
 writeln;
 for i:=1 to n do
  begin
      if a[i]=2 then
      begin
           k:=k+1;
      end;
  end;
    writeln('nedopusheno ',k,' abiturienta');
    readln;
    end.

Поделиться62007-06-19 17:12:30

Автор: LALALA
Администратор
Откуда: Таганрог
Зарегистрирован: 2007-04-30
Приглашений: 0
Сообщений: 130
Пол: Мужской
Возраст: 38 [1986-04-02]
Провел на форуме:
1 час 39 минут
Последний визит:
2008-11-21 19:57:40

ЗАДАЧА 4

Код:

program TEXT;
uses crt;
var stroka:string;
    i,k,l:integer;
  begin
  clrscr;
 writeln('vvedite stroku');
 readln(stroka);
k:=1;
l:=0;
if (stroka[1]='«') or (stroka[1]='‹') then l:=l+1;
 while stroka[i]<>'.' do
 begin
 if stroka[i]=' ' then
 begin
 k:=k+1;
 if stroka[i+1]='«'then l:=l+1;
 end;
 i:=i+1;
 end;
 writeln('obshee kolvo slov', k);
 writeln('na bukvu "«" -', l);

    readln;
    end.