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.вот в одном решении
Ответ дал: Гость
var a,res: integer;
begin
writeln('введите число');
readln(a);
res: =sqr(a);
writeln('квадрат числа,'a', равен,'res',');
readln;
end.
Ответ дал: Гость
лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.
Популярные вопросы