Var n,p,k,s,i:integer;
begin
writeln(n);
readln(n);
writeln(p);
readln(p);
s:=0;
for i:=1 to n do
begin
writeln('введи число');
readln(k);
if (k mod p =0) then s:=s+1;
end;
writeln('ответ ',s);<span>
end.</span>
Там рандомные числа выходят точно чему равин s не возможно узнать
Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.
Помогите пожалуйста разобраться в данной ситуации
На одну чашу весов поместим две монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Предположим, что перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. В противном случае фальшивой окажется более тяжелая из двух сравниваемых монет.