uses crt;
var
n,k,i:integer;
r1,r2:real;
p: array[1..1000] of real;
begin
k:=0;
write('n='); read(n);
writeln('P[n]:');
for i:=1 to n do
read(p[i]);
write('r1='); read(r1);
write('r2='); read(r2);
for i:=1 to n do
begin
if (r1<p[i]) and (p[i]<r2) then k:=k+1;
end;
writeln;
write('Внутри ',k,' точки.');
end.
//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423
Ответ:
4(OOPO) и 5(PTON)
Объяснение:
Достаточно начать отталкиваться от предложения с указанием бусины на 3 месте
Я пошёл в школу-истинное.Я не пошёл в школу-ложное.
1.
var a,b,c,d,s: real;
begin
write('a, b: ');
readln(a,b);
write('c, d: ');
readln(c,d);
s:=(a+b)/2;
writeln('Среднее арифметическое = ',s:5:2);
if (s>=c)and(s<=d) then writeln('Попадает')
else writeln('Не попадает');
end.
Пример:
<span>a, b: 5 7
c, d: 2 4
Среднее арифметическое = 6.00
Не попадает
2.
var a: integer;
begin
write('a = ');
readln(a);
write('Число ',a);
if (a mod 8=0) then write(' делится на 8')
else write(' не делится на 8');
if (a mod 125=0) then writeln(' и делится на 125')
else writeln(' и не делится на 125');
end.
Пример:
<span>a = 200
Число 200 делится на 8 и не делится на 125</span></span>
