Составит программу на паскале

20.12.2011, 15:11. **Показов** 1093. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Блин сгорю на зачете((((((помогите плиз????
(Дан текст на русском языке.Напечатать в алфавитном порядке все звонкие согласные буквы которые входят хотя бы в одно слово)прогграмма на паскале

@morgan57 · 20.12.2011, 18:58

держи: (делал на АВС, ибо мой турбо русский язык не поддерживает)

Pascal

var
sp,n:string;
i,j,k,kol:integer;
begin
  kol:=0;
  readln(n);
  sp:='бвгджзйлмнр';
  for i:=1 to length(n) do begin
    for j:=1 to length(sp) do begin
      if n[i]=sp[j] then kol:=kol+1;
    end;
  end;
  writeln('количество: ',kol);
end.

Nastenysh
		1
	Составит программу на паскале 20.12.2011, 15:11. Показов 1093. Ответов 1 Метки нет (Все метки) Блин сгорю на зачете((((((помогите плиз???? (Дан текст на русском языке.Напечатать в алфавитном порядке все звонкие согласные буквы которые входят хотя бы в одно слово)прогграмма на паскале

	20.12.2011, 18:58

Составит программу на паскале

Решение