Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
2) разделить большой орех на 2 и маленький на 2 и дать по 1 кусочку(маленького и большого) мальчику а остальной пол большого и пол маленького дать карлсону. 1)для сбора урожая им не потребуется мышка. т.к есть сосед или соседка
Правильный ответ: =ЕСЛИ(B8<=4;B8*1000;4000+(B8-4)*750)
Готово. Запрос на ввод, условие и вывод.