Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.
1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ArrRandom(10, -50, 50);
x.Println;
x[0] := x.Take(5).Where(t -> t < 0).Count;
x.Println
end.
Var a,b,c,x1,x2,d:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln(x1,' ',x2);
<span>end.</span>
Схема составлена с помощью цикла Пока