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.
Var
i, n: integer;
sum, x: real;
begin
n:= 7;
sum:= 0.0;
for i:= 1 to n do
begin
write(i, '-е число = ');readln(x);
sum := sum + x
end;
writeln('Выпадет ', round(sum/n));
case round(sum/n) of
1,5,7,9,11,13,15: writeln('Красное');
2,4,6,8,10,12,14,16: writeln('Чёрное');
3: writeln('Зелёное');
else writeln('Неизвестный цвет');
end;
readln;
end.
Пример:
<span>1-е число = 2
2-е число = 4
3-е число = 9
4-е число = 5
5-е число = 1
6-е число = 6
7-е число = 8
Выпадет 5
Красное</span>
Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.
Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>
1. А2=15/5=3
В2=15-3*5=0
А3=3+5^2=28
В3-0/5+28=28
Ответ: А3=28, В3=28;
2. а) А2=3+6=9
А3=5+1=6
С1=3
С2=(9+6+5+4)/4=24/4=6
С3=3+6=9
Ответ: С1=3, С2=6, С3=9
б) А1=2+3=5
А2=2
А3=7+1=8
С1=5+2=7
С2=8
С3=(7+8)/2=7,5
Ответ: С1=7, С2=8, С3=7,5;
3. В прикрепленных.
4. 1) 25-18=7 - средняя стрельба
2) 25-15=10 - средняя скорость
3) 7-5=2 - средняя стрельба, высокая скорость
4) 10-5=5 - средняя скорость, высокая стрельба
5) 25-5-2-5=13 - высокая скорость, высокая стрельба.
Ответ: 13.