Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var s1, s2: string;
begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.
var a,b,c: integer;
begin
read(a,b,c);
if a> =0 then writeln(a);
if b> =0 then writeln(b);
if c> =0 then writeln(c);
end.
1- 2 брата близнеца, один из них возвращается назад
2 - плывет папа, возвращается другой брат
3 - 2 брата близнеца, один из них возвращается назад
4 - мама, возвращается другой брат
5 - оба брата близнеца
это вообщето
v= v1+v2
t=(v1*t1+v2*t2)/v
Популярные вопросы