Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
См. фото..................................
Uses crt;var i,k,s:integer;beginwriteln('vvedite chislo');readln(i);s:=1;while i>0 do begink:=i mod 10;if k > 0 thens:=s*k; i:=i div 10;end;writeln(s);end.
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
Я думаю что Белка, вторая не согласная и третья не гласная