| Автор | Паскаль. задача. впорос. |
|---|
Составте программу нахождения сумарного числа букв "м", "Н" в слове х
ну хто поможет? тому печеньку дам))) |
| Запоминаешь длину, меняешь м, Н на пустое место, вычитаешь новую длину из старой, имеешь ответ. |
| а пробежаться по слову, посчитать? |
program Zn;
Var x:string[100],k,l,i:integer;
Begin
writeln ('vvedite slovo x');
readln (x);
k:=0;
l:=length (x);
for i:=x to l do
begin
If copy (x,i,1)='n' thee k:k+1;
If copy (x,i,1)='m' thee k:=k+1;
End;
writeln ('kolichestvo bykv n, m=' ,k);
End.
токо у меня во второй строчке ошибка... незнаю правдо какая |
Var x:string[100];
k,l,i:integer;
так получше. |
| Var x:string[100];k,l,i:integer; |
Var
x:string[100];
k,l,i:integer;
попробуй, хотя Паскаль давно был) |
Разве просто string не катит, без [100]?
Попробуй так:
program Zn;
Var
x:string;
k,i:integer;
Begin
writeln('vvedite slovo x');
readln(x);
k:=0;
for i:=0 to length(x)-1 do
begin
If copy (x,i,1)='n' thee k:k+1;
If copy (x,i,1)='m' thee k:=k+1;
End;
writeln ('kolichestvo bykv n, m=' ,k);
End. |
for i:=1 to l do
от одного, кажись |
9
а, да тут один я просто его с иксом спутал) |
Разве просто string не катит, без [100]?
Если правильно помню, тогда длина строки будет по максимум, а именно 255.
И кажется по индексу 0 это длина и хранится. |
Если правильно помню, тогда длина строки будет по максимум, а именно 255.
И кажется по индексу 0 это длина и хранится.
Все правильно.
А если ты хочешь идти работать программером, забудь эти названия переменных. Названия должны быть говорящими =) |
| ОФФ-ТОП: Эх... приятно вспомнить такие задачки... Как долго мучался я с первыми программами... |
| у меня просто во всех задачах так записанно) вот я и пишу по привычке) |
А если ты хочешь идти работать программером, забудь эти названия переменных. Названия должны быть говорящими =)
Пока до настоящих программ не дорастёт - не поймёт. ) |
12
о нет)) программером ни за что))) у меня это как общая программа просто идёт))) |
о нет)) программером ни за что))) у меня это как общая программа просто идёт)))
По сложности видно... наверняка один семестр (студент ведь, да?), да ещё и раз в две недели мб ) |
17
хех))) ИКТ 9 класс))) какой нафиг симестр) надеюсь в институте у меня этого уже не будет))) |
хех))) ИКТ 9 класс))) какой нафиг симестр) надеюсь в институте у меня этого уже не будет)))
Ты не поверишь, но на первом курсе на некоторых специальностях именно это и проходят )) |
| ща про Анну Австрийскую читаю) интереснинько) не точто это цифры) |
