Решите пожалуйста мою задачу на поскале.

[Ivan357]

задача (как я понял)сводится к тому,что я ввожу текст (любой) с клавиатуры и прога считает сколько букв в этом тексте.

[Sm1Le]

program Oleg;
var str1,str2:string;
i,j,s:integer;
begin
s:=0;
str1:='asdfsasagh';
str2:='as';
for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin
if str1[i]=str2[j] then
s:=s+1;
end;
end;
writeln(s);
readln;readln;
end.

Спецом скачал Паскаль и проверил ! точно работает!

хмм Вопрос вот в чем : Вам надо посчитать количество символов, кроме пробелов или

Сообщение от Ivan357

Задача состоит вот в этом : Определите,сколько в заданном тексте ЗАДАННЫХ букв.

Пример :

1 строка :
asdqwesdasfczasd
2 строка :
а
Выход :
=3 !

[Ivan357]

блин,скорее всего я неправильно понял вопрос.....да,вы правы.ваша программа работает прекрассно...извините,что отнял у вас столько вашего личного времени... еще раз огромное спасибо

[Picaso18]

for i:=1 to length(str1) do
begin
for j:=1 to length(str2) do
begin

зачем это нужно.особена length

[Sm1Le]

Это Length - длина ... ДЛина строки str1 =)))

SomeStr:='asdas'; // length(SomeStr) - ответ 5.