Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
if pos(s[i],p)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Hi, guys!
k = 2
Если правильно поняла,то число 10110101 -181,присутствует в каждом слове. и код буквы П- 11101111,он присутствует в первом слове в двух первых числах. надеюсь помогла
Ответ: 8
проверка:
1*8^2+4*8^1+5*8^0 = 64+32+5 = 101
Var year: Integer; s, s1, p: Real;
Begin
write('Сумма: '); readln(s);
write('Процент: '); readln(p);
s1 := s; year := 0;
while s * 5 > s1 do
begin
s1 := s1 + s1 * p / 100;
year := year + 1;
end;
write(year);
<span>End.</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
ar:array of integer;
n,k,i,j:integer;
b1:boolean;
begin
read(n,k);
b1:=false;
setlength(ar,n);
n:=n-1;
writeln('Enter array:');
for i:=0 to n do
readln(ar[i]);
for i:=0 to n-k+1 do
begin;
for j:=i to k+i-1 do
if ar[i]=ar[j] then b1:=true else b1:=false;
if b1=true then
break;
end;
if b1=true then
for i:=0 to n do
begin;
if ar[i]>0 then ar[i]:=ar[i]*(-1);
write(ar[i]:4);
end
else
writeln('Рішення не існує');
end.
<span>Пример ввода:
</span>5 //n
4 //k
2
1
1
1
1
<span>Пример вывода:
</span> -2 -1 -1 -1 -1