Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Ьчтчлвтвдчщчлчдвлашаоутаоплпгапекгнкрурп
Твганагагашк
Объяснение:
Ал риозослхмпшио, лаливдвбововововвиввщьвлаьавтвдвтщвоушутвлулулала
У фіолетовій подивися!
Ніби там
язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
Популярные вопросы