program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.
Ответ дал: Гость
только 25-18=7 человек
только французский 27 - 18 = 9 человек
ну а на вопросы не отвечу =))
Ответ дал: Гость
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
end
Ответ дал: Гость
см файл
за январь нет оплаты так как нет предыдущих показаний
Популярные вопросы