varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении
Ответ дал: Гость
мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
Ответ дал: Гость
1.найти разность показаний счетчика на конец месяца и на начало месяца.
2.умножить на цену одного квт/часа
Ответ дал: Гость
для начала переведем кбайты в биты:
2500кбайт=2500*1024*8=20480000бит,
затем найдем искомое время: t=объём файла/скорость передачи,
Популярные вопросы